Que manque t'il ou est ce impossible (finance)

Bonjour
J' ai essayé ce code pour rapatrier sur un classeur les valeurs d'une
page Web entière, code qui ne fonctionne pas. La fin de la ligne Http
m'est personnelle, elle ouvre bien quand elle est sur la barre d'adresse
de FF; mais voila en vba il ne se passe rien. J'ose espérer qu'il y ai
une astuce que qq connait peut être sur Mpfe.

Public Sub ChercheWebSource()
Dim Dlgn As Byte
Dim Adweb$
Dlgn = [A50].End(3).Row
Sheets("Import").Select
[A:A].ClearContents
Adweb =
"http://www.msn.com/fr-fr/finance/liste-de-valeurs/fi-38723d2b-f58c-4cc7-9112-b7965bxxxxx"
With Sheets("Import").QueryTables.Add(Connection:­web,
Destination:=Range("A1"))
.Name = "MSN Com"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With
End Sub

Bonne journée à tous
Fredo P.