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