Private Sub CommandButton1_Click()
If T111 <> "cowboy" Then MsgBox "Mot de passe incorect", vbCritical, "Mot de passe incorect" Else Application.Visible = 1
If T111 <> "cowboy" Then MsgBox "Mot de passe incorect", vbCritical, "Mot de passe incorect" Else UserForm4.Hide
If T111 <> "cowboy" Then MsgBox "Mot de passe incorect", vbCritical, "Mot de passe incorect" Else UserForm3.Hide
End Sub