Sub voirfeuille()
Dim MDP As Variant
Dim TMDP As String
MDP = Application.InputBox("Mot de passe ?", Type:=2)
If MDP = False Then Exit Sub
TMDP = MDP
If TMDP = "YAG" Then Sheets("YAG").Visible = True
If TMDP = "AGS" Then Sheets("AGS").Visible = True
If TMDP = "MD3" Then Sheets("MD3").Visible = True
End Sub