Sub Macro1()
Dim Message$, Titre$, Def$, WS1$, WS2$, WS3$, PassW$
Dim f As Worksheet
Titre = "Accès réservé"
Def = "*****"
PassW = "blabla"
Message = "Entrez un mot de passe :"
For Each f In Sheets(Array("Feuil2", "Feuil3"))
If f.Visible = xlSheetVisible Then
f.Visible = xlSheetHidden
Else
If InputBox(Message, Titre, Def) = PassW Then _
f.Visible = Not f.Visible
End If
Next