je pense que tu peux faire cela via un tableau (plus rapide)
on remplis un tableau des valeurs de la plage
ex
Tableau =Range("A1:B"& Range("A65536").end(xlup).row).value
ensuite tu boucles sur le tableau Sub Transfert()
Dim L as integer
Dim Tableau as variant
'on remplis le tableau de la plage de cellule A1:B x
Tableau =Range("A1:B"& Range("A65536").end(xlup).row).value
With Worksheets("Feuil2") 'en feuil 2
For L=1 to Ubound(tableau,1) 'pour chaque ligne du tableau
if Tableau(L,1)<>"" then ' si colonne 1 non vide
.Cells(L,1)=Tableau(L,1) 'on colle la colonne 1 du tableau en colonne A
.Cells(L,2)=Tableau(L,2) 'on colle la colonne 2 du tableau en colonne B
End if
Next
End With End sub en espèrant avoir pu t'aider
n'hésite pas si problème
Bonne Journée