[SIZE=2][COLOR=NAVY]Sub[/COLOR] Test()
[COLOR=NAVY]Dim[/COLOR] F [COLOR=NAVY]As Byte
For[/COLOR] F = 11 [COLOR=NAVY]To[/COLOR] 15
Sheets(F).Protect
[COLOR=GREEN]' ou Sheets(F).Unprotect pour le contraire[/COLOR]
[COLOR=NAVY]Next[/COLOR] F
[COLOR=NAVY]End Sub[/COLOR][/SIZE]
Sub protege_ou_deprotege()
Dim sh
For sh = 11 To 15
With Sheets(sh)
If .ProtectContents + .ProtectDrawingObjects + .ProtectScenarios <> 0 Then
.Unprotect
Else
.Protect
End If
End With
Next sh
End Sub