Option Explicit
Dim ws As Worksheet
Sub protegefeuille()
For Each ws In Worksheets
If LCase(Left(ws.Name, 4)) = LCase("Bibi") Then
Select Case ws.ProtectContents
Case False
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Case True
ws.Unprotect
End Select
End If
Next
End Sub