Dim Plage As String
Plage = Worksheets("feuil1").Range("A6" & ":" & Worksheets("feuil1").Cells. _
SpecialCells(xlCellTypeLastCell).Address).Address
Worksheets("feuil1").Range(Plage).Sort Key1:=Worksheets("feuil1").Range("A6"), _
Order1:=xlAscending, Header:=xlYes