Bonsoir,
voici un code qui fonctionne :
Sub LouReeD()
Application.ScreenUpdating = False
Sheets("Feuil1").Select
Range("D4:D7").Copy
Sheets("Feuil2").Select
Range("A" & Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Mais regardez une chose : n'avez vous pas une valeur inscrite aux alentours de la ligne 1080 de la feuille 2 ?
Sinon votre recherche de dernière ligne, ne manquait-il pas le ".Row" ? à moins qu'il soit remplacé par le "(2)"...
Il existe une instruction pour "dé sélectionner" une plage copiée afin de retirer les pointillés clignotant sur la plage, dans ce code elle n'est pas mise...
@ bientôt
LouReeD