Bonjour
Sub Trier()
Range("A2:G" & [C65000].End(xlUp).Row).Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("C2").End(xlDown).Offset(1, 0).Select
End Sub
Cordialement