bonsoir Yvon
Private Sub protection()
Application.ScreenUpdating = False
For Each sheet In Sheets
sheet.Protect Password:='ton code', DrawingObjects:=True, contents:=True, Scenarios:=True
Next
Application.ScreenUpdating = True
End Sub
bonne soirée
E et F