Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.