Extraction Web, ma macro ne m'écrit pas tout

Bonjour,

j'ai utilisé la macro suivante pour extraire des infos d'une page web sur excel mais elle ne marche pas complètement, en effet, j'arrive à importer les données de la pages mais lorsque je veux selectionner celles qui m'interessent et les copier/coller sur une autre page ça ne marche pas, je ne comprend pas pourquoi ?

Le but est de récupérer les notes des hotels sur un site tel que tripadvisor sans avoir à me balader sur tout les sites.



Sub importer()

Sheets("Feuil1").Cells.Clear

With Sheets("Feuil1").QueryTables.Add(Connection:="URL;https://www.tripadvisor.fr/Hotel_Review-g190356-d637669-Reviews-Sofitel_Luxembourg_Le_Grand_Ducal-Luxembourg_City.html" _
, Destination:=Sheets("Feuil1").Range("$A$1"))
.Name = "tripad"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

compteur = 0

For ligne = 1 To 1000

If Left(Sheets("Feuil1").Cells(ligne, 1), 6) = "Très bon" Then
compteur = compteur + 1
Sheets("Feuil2").Cells(compteur, 1) = Sheets("Feuil1").Cells(ligne - 1, 1).Hyperlinks(1).Address

If compteur = 1 Then Exit For
End If

Next

end sub



Merci d'avance pour votre aide,

John