ActiveSheet.Unprotect Password:='passe'
Worksheets('Feuil1').Range('A27').Select
Worksheets('Feuil1').Range('A27:C39').Sort , xlDescending, _
Key1:=Worksheets('Feuil1').Range('C27')
With ActiveSheet
.EnableSelection = xlNoSelection
.Protect Contents:=True, UserInterfaceOnly:=True, Password:='passe', Scenarios:=True
End With