bonsoir à tous
dans une procédure de récup , j'ai un problème de boucle
le code fonctionne, mais je ne comprends pas pourquoi
lors de la récupération sur ma feuille excell , il me place les éléments bloc sur une même ligne
hors je souhaiterais les avoir les uns en dessous des autres

voici les éléments, si quelqu’un peux m'aider Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Plage As Range
    Dim TabTemp As Variant
    Dim vUrl As String
    Dim dernLign As Long, L As Long
    Dim DernCol As Integer
‘’………………………… 
DernCol = .Cells(1, .Columns.Count).End(xlToLeft).Column  ‘défini dernier colonne 
 dernLign = .Cells(.Rows.Count, 2).End(xlUp).Row                    ‘défini dernière ligne 
Set Plage = .Range(.Cells(2, 2), .Cells(dernLign, DernCol))           ‘affectation plage 
 
TabTemp = Plage.Value
     For L = 1 To UBound(TabTemp)                'boucle
     vUrl = Plage.Cells(L, 2).Hyperlinks(1).Address  'recup de lien
        recuphisto1 vUrl, dernLign + 1                    ‘en QueryTables.Add
Next L