With Sheets("Feuil1")
.Range("A2:G" & .Range("G65535").End(xlDown).Row).Sort Key1:=.Range("A2:A" & .Range("A65535").End(xlDown).Row), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With