Dim der As Integer
'***1/ Tri des données pour les classer
With Sheets("Feuil1")
der = .Range("A65000").End(xluprow).Row
.Range("A2:F" & der).Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With