Bonjour,
Un test. Les feuilles ont tous le mot de passe T :
Sub PROTECTION()
Dim i%
For i = 1 To Worksheets.Count
Worksheets(i).Protect Password:="T"
Next i
End Sub
Sub DEPROTECTION()
Dim i%
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect Password:="T"
Next i
End Sub
Cdlt,