Sub ProtegeTout2()
Application.ScreenUpdating = False
Dim feuil
For Each feuil In Application.Sheets
ActiveWorkbook.Protect Password:="MdP", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True 'mot_de_passe à adapter
Next feuil
Application.ScreenUpdating = True
End Sub