Sub ProtecFeuilles1()
Dim i As Long
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Activation de la protection des feuilles")
If MDP <> "yes" Then Exit Sub
For i = 1 To Sheets.Count
If Not Worksheets(i).Name Like "tes*" Then
Worksheets(i).Protect MDP
End If
Next
End Sub