Sub MisterHide()
Dim i, Clés
Clés = Array(Array("toto", 1), Array("titi", 2), Array("tutu", 3))
For i = 1 To Sheets.Count
If Not Sheets(i).Visible Then Sheets(i).Visible = xlSheetVisible
Next
Mdp = InputBox("Mot de passe?")
For i = 1 To Sheets.Count
Sheets(i).Visible = Sheets(i).Index = Application.VLookup(Mdp, Clés, 2, 0)
Next
End Sub