extraction de lignes de 3 fichiers differents pour creer un fichier final (RESOLU)

' ICI J'ESSAIE DE PARTIR DE LA LIGNE 7 DU FICHIER SOURCE QUI EST LA PREMIERE LIGNE DE DONNEE QUI M INTERRESSE
'JUSQU'A LA DERNIERE LIGNE DE CE MEME FICHIER POUR CONNAITRE QUELLE EST CETTE LIGNE

Dim rgImport As Range
Dim rgResult As Range
Dim Lastrow As Integer
Dim i As Integer
Set rgImport = wbImport.Range("A7")     'on part de la ligne 7
Do Until IsEmpty(rgImport)              'on boucle jusqu'à la fin (on suppose aucune ligne vide)
   
   Lastrow = wbResult.Sheets(1).Range("A65000").End(xlUp).Row + 1   'ligne d'écriture dans classeur wbResult
   Set rgResult = wsbesult.Sheets(1).Range("A" & Lastrow)
   For i = 0 To 10
    rgResult.Offset(0, i).Value = rgImport.Offset(0, i).Value       'on écrit
   Next i

Set rgImport = rgImport.Offset(1, 0)
Loop

'Range("A7").Select
'Ligne = Cells(65530, w).End(xlUp).Row
'If Ligne > Dernière Then Dernière = Ligne
'Range("A" & Dernière).Offset(1, 0).Select
'ActiveSheet.Paste

' CI DESSOUS UN PREMIER ESSAI QUI IMPORTE LA PREMIERE LIGNE DANS LA FEUILLE RESULTATS MAIS N'ARRIVANT PAS A GERER
' L IDENTIFICATION DU NOMBRE DE LIGNE DU TABLEAU SOURCE DANS DERNIERE, CELA NE FONTIONNE PAS     IL FAUDRAIT AUSSI
' INCREMENTER LES DONNEES IMPORTEES D'UNE LIGNE PAR BOUCLE

Set rgImport = wbImport.Range("A7")     'on part de la ligne 7

Set rgResult = wsbesult.Sheets(1).Range("A" & Lastrow)

Set rgResult = wbResult.Sheets(1).Range("A" & Lastrow)