bonjour a tous , j'ai passé le week à chercher une soluce ,, pas moyen

j'ai une macro lié à une recup IE (en fonction de lien d'un 1er tableau)
j'aimerai lors de cette récup en fonction du nombre aléatoire de cette incrémentation (variable NBL)
inserer le nombre de ligne correspondante (dans mon 1er tableau, pour chaque lien)
et par la suite copier les lignes récupérer à la droite de mon 1er tableau

pas simple au Secours !! merci de votre aide

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub Essai()
       Dim vurl As String 'Lien
       Dim TabTemp As Variant  
       Dim plage As Range
       Dim NBL As Integer 'variable nbr ligne
       Dim rcell As Range 
 
        dernlign = Cells(Rows.Count, 2).End(xlUp).Row
        derncol = Cells(4, Columns.Count).End(xlToLeft).Column
 
      Set plage = Range(Cells(5, 2), Cells(dernlign, derncol))
      TabTemp = plage.Value
       plage.Select
 
    On Error Resume Next   
 
     For Each rcell In Sheets("BSD").Range("b5:b" & dernlign)
    	   With rcell.Rows.Select
         End With
 
    Vurl = plage.Cells(rcell, 2).Hyperlinks(1).Address
    recup2 Vurl, dernlign + 1
 
    NBL = (Cells(Rows.Count, 2).End(xlUp).Row) - dernlign
 
	For I = 1 To NBL  'ICI CA BUG !!
         ActiveCell.EntireRow.rezize(rowsize:=NBL - 1).Insert Shift:=xlDown, copyOrigin:=xlFormatFromLeftOrAbove
    Next I
 
MsgBox ("NBL" & "_" & NBL)   
MsgBox ("adress" & "_" & Vurl)
 
MsgBox ("dernlign" & "_" & dernlign)
   Next rcell