Par Macro en VBA, récupérer le source d'un fichier HTM sur le WEB

Private Sub UserForm_Activate()
 Dim objBK As Workbook
 Dim objQT As QueryTable
 
 Dim strDecimal As String
 Dim strThousand As String
 Dim boolUseSystem As Boolean
 
 'Création d'un nouveau classeur.
 Set objBK = Workbooks.Add
 
 'Création de la requète pour récupérer les données.
 With objBK.Worksheets(1)
     Set objQT = .QueryTables.Add( _
     Connection:="URL;http://www.cheval-francais.com/courses/pv08-06.htm", _
     Destination:=.Range("A1"))
 End With
 
 'Propriétés de la requète.
 With objQT
     .Name = "USD"
 
     'Empèche le raffraichissement automatique lors de l'ouverture du classeur.
     .RefreshOnFileOpen = False
 
     'Ignore le format de la page.
'Moi .WebFormatting = xlWebFormattingNone
 
     'Attend la fin de la requète avant de poursuivre la procédure.
     .BackgroundQuery = True
 
     'Définit une table particulière dans la page.
     .WebSelectionType = xlSpecifiedTables
     .WebTables = "4"   '"15"
 
     'Sauvegarde la requète dans le classeur.
     .SaveData = True
 
     'Ajuste la largeur de la colonne à la taille des données.
     .AdjustColumnWidth = True
 End With
 
 With Application
     On Error Resume Next
 
     'Execute la requète et attend la fin du calcul.
     objQT.Refresh BackgroundQuery:=False
 End With
End Sub