Bonjour,
j'ai automatiser une copie de data d'une page vers une autre
' Copier des DATA
Sheets("Feuil1" ).Select
ActiveWindow.SmallScroll Down:=-42
Range("A4:G40" ).Select
Selection.Copy
mais mon fichier grandit et j'ai la fin de ma sélection qui est passé à G58
comment faire pour que ma sélection grandisse avec l'augmentation de ligne
j'ai essayé de faire ceci....
' Dim Lig As Long
' Lig = 1 'première ligne à vérifier
' Do While Not IsEmpty(Range("C" & Lig))
' Lig = Lig + 1
' Loop
' Range("A4:G" & Lig).Select
mais cela ne fonctionne pas
Auriez vous une solution pour m'aider.
Alex