'
Déprotection feuille 'ventes'
'
Sheets('Ventes').Select
ActiveSheet.Unprotect password:='gael'
'
Classement
'
Range('A6:F15').Select
Selection.Sort Key1:=Range('F6'), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range('A20:F24').Select
Selection.Sort Key1:=Range('F20'), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'
Reprotection feuille 'ventes'
'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:='gael'
Range('A1').Select