Bonjour à tous

J'ai mis en place ce code pour un formulaire "Mot de Passe" et ça fonctionne.
Toutefois, lorsque le MsgBox s'affiche, il faut de nouveau appuyer sur un bouton "Ok".
Je souhaiterai que l'affichage apparaisse quelques secondes et puis disparaisse sans aucune intervention de l'utilisateur.
Pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub BtValid_Click()
Dim Rep As String
Static Deja As Boolean
 
'Si je clique sur le bouton "Valider"
'Si le mot de passe est bon
    If Not Deja Then Rep = Me.TxtPasse.Value
    If Rep = "motdepasser" Or Deja Then
 
        Deja = True
        MsgBox "Le mot de passe est bon"
 
'Je passe à la procédure "Afficher"
'Le formulaire se ferme
    Call Afficher
    Unload Me
 
'Le mot de passe est effacé
    Me.TxtPasse = ""
 
'Sinon un message d'erreur s'affiche
    Else
    MsgBox "Désolé ! Le mot de passe est faux"
    End If
 
End Sub