Sub Tri_Macro()
Worksheets("Feuil1").Unprotect Password:="Motasse"
Sheets("Feuil1").Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Worksheets("Feuil1").Protect Password:="Motasse"
End Sub