Bonjour !

Je dois copier une plage de cellule de A67 : E28720 (la ligne étant variable)
j'avais un code qui fonctionne très bien mais pour une petite plage de cellule

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Range("A1:E9" ).Select 
Selection.Copy 
ActiveSheet.Paste
alors pour un total de 28720 lignes voir + je n'y arrive pas je suis bloquée

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub copier()
Dim Nb_Lignes1 As Long
Nb_Lignes1 = Range("A1").End(xlUp).Row
 
Range("A1", "A" & Nb_Lignes1).Copy
 
ActiveSheet.Paste
 
End Sub
merci d'avance