comment créé une boucle dans une macro

Bonjour le Forum ,

Je viens de créé une macro pour récupérer des données depuis internent , mais je ne sait pas comment remplacer l'adresse par une boucle qui irait me chercher l'adresse dans la feuille "Adresse" à la suite les une des autres , Voici la macro :

Sub importer1()

Sheets("Temp").Select
Columns("D:AQ").Select
Range("D10").Activate
Selection.ClearContents
Range("A1").Select

With Sheets("Temp").QueryTables.Add(Connection:="URL;http://stadeproligne.sportsdirectin...ata/NBA/results/2016-2017/boxscore944690.html" _
, Destination:=Sheets("Temp").Range("$D$1"))
.Name = "Ce lien n'existe plus"
.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

End Sub

(Je vous joint un fichier en exemple)

Cdlt Nicoalbert