Private Sub ComboBox1_Change()
If InputBox("entrez votre mot de passe") = CStr(Sheets("MENU").Cells(ComboBox1.ListIndex + 2, 2)) Then
Sheets(ComboBox1.ListIndex + 2).Visible = xlSheetVisible
Sheets(ComboBox1.ListIndex + 2).Select
UserForm1.Hide
Else
MsgBox ("MOT DE PASSE ERRONE VEUILLEZ REESSAYER")
End If
End Sub