Hello,
Je comprends bien le premiere partie de ton coed qui consiste à copier coller des lignes de la feuil1 vers la feuil2.
Par contre je ne comprends pas la seconde partie :
Do While Sheets('Feuil3').Cells(j, 14).Value <> ''
If Sheets('Feuil3').Cells(j, 14).Offset(1, 0).Value = '' Then
Selection.EntireRow.Select
Selection.Copy
Sheets('Feuil3').Select
Cells(j, 1).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, 13).Select
End If
j = j + 1
Mais l'erreur est là : If Sheets('Feuil3').Cells(j, 14).Offset(1, 0).Value = ''
Tu dis à excel de regarder la cellule du dessous (offset(1,0) de celle en cours (J,14) pour voir si elle est egale à zero.
Hors si tu es sur la dernière ligne celle du dessous est forcement =0 !!
et donc il execute la procedure qui se trouve dans le if. Ta premières ligne, il y a quelque chose dessous donc pas de copie, mais pas pour le 2eme... c'est le drame lol
Et à lafin tu arrives à copier du blanc donc la boucle s'arrete. Si tu fais une execution pas à pas tu t'apercevras que ta boucle copie une ligne vide avant de s'arreter.
Je ne sais pas vraiment ce que tu souhaites faire mais il doit y avoir bcp plus simple ton code est bien 'embrouillé'.
Si tu as besoin d'aide n'hesite pas ! mais soit précis sur ce que tu veux faire.
++
Creepy