Sub Macro200()
ActiveSheet.Unprotect Password:=MotDePasse
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
End Sub
du coup je l'ai rajouter sur la macro et cela fonctionne