Sub TriClasse_Croissant_Clic()
ActiveSheet.Unprotect ("ab")
Range("MaSaisie").Sort Key1:=Range("C7"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect ("ab"), DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub