[COLOR=NAVY]Dim[/COLOR] Plage [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]Dim[/COLOR] L [COLOR=NAVY]As Long[/COLOR]
L = ActiveSheet.Cells(Application.Rows.Count, 1).[COLOR=NAVY]End[/COLOR](xlUp).Row
[COLOR=NAVY]Set[/COLOR] Plage = Range(Cells(8, 1), Cells(L, 1))
Plage.[COLOR=NAVY]Select[/COLOR]