Dim Plage As Range
Dim Plage As Range
Dim DerLig As Long
With Sheets("Saisie")
DerLig = Sheets("Saisie").Range("A" & Rows.Count).End(xlUp).Row
Debug.Print "Derniere ligne : ", DerLig
Set Plage = .Range("A3:A" & DerLig - 2) ' plantera si rien en A3 et dessous
Debug.Print "Plage : ", Plage.Address
End With