importer fichier au format HTML

bonjour forum

j'essaie en vain d'importer un fichier html dans mon fichier excel.
le fichier html est généré par un soft.
j'ai écrit un bout de code avec ce que j'ai trouvé sur la toile mais je bloque.
le voici :

Sub Macro1()
'
' Macro1 Macro
Dim NomFichierhtml As String
Dim chemin As String

Reponse = MsgBox("Mise à jour ?", vbQuestion + vbOKCancel, "Import html")
If Reponse = vbOK Then

ChDir ("C:\Users\moi\test\test rapatriement html")
Filtre = "Check(*.html), *.html"

NomFichierhtml = Application.GetOpenFilename(Filtre)
chemin = NomFichierhtml

Application.ScreenUpdating = False

Sheets("Temp").Activate

With ActiveSheet.QueryTables.Add(Connection:="html;& chemin", Destination:=Range("$A$1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=True
.SaveData = True

End With

End If
End Sub

cela se bloque avec l'objet activesheet.

merci par avance à tous pour vos éclaircissement

kiki