Dim DernLigne As Long

Bonjour,

Voici un extrait de mon code et celui-ci s'étend jusqu'à la ligne 200000. Or j'aimerais qu'il s'arrête quand il a fini ..

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DernLigne = Sheets("Suivi DEMAT").Range("E" & Rows.Count).End(xlDown).Row
 
 
'Recopie les données d'une feuille excel
Sheets("Base de données").Activate
Sheets("Base de données").Range("B2:B" & DernLigne).Copy
Sheets("Suivi DEMAT").Activate
Sheets("Suivi DEMAT").Range("A2:A" & DernLigne).PasteSpecial xlPasteAll
Application.CutCopyMode = False
...
 
'Etendre la formule E
Sheets("Suivi DEMAT").Activate
Sheets("Suivi DEMAT").Range("E2").Select
Selection.AutoFill Destination:=Sheets("Suivi DEMAT").Range("E2:E" & DernLigne)
'Sheets("Suivi_DEMAT").Range("E2").AutoFill Destination:=Sheets("Suivi DEMAT").Range("E2:E" & DernLigne)
Application.CutCopyMode = False