Re : J'ai honte
Bonjour Arcangeli, mth,
modifie le code comme suit :
Sub Protéger()
For i = 1 To Worksheets.Count
With Worksheets(i)
.EnableSelection = xlUnlockedCells
.Protect Password:="yes", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
End With
Next
End Sub