XL 2016 Macro

Bonjour à tous,

J'ai mis en place cette macro en suivant un tutoriel sur Youtube. Comme je suis nouveau, je ne sais pas si je dois mettre le lien ? Elle fonctionne très bien mais j'aurais souhaité rajouter que la fenêtre se ferme si le USER et le mot de passe sont corrects et que lors de la saisie du mot de passe il y ait des ***** pour la discrétion. Une personne peut-elle m'aider ?

La voici :

Private Sub CommandButton1_Click()
Dim Feuil As Worksheet
Dim MDP
On Error Resume Next
If Me.TextBox1.Value = "" Then
MsgBox "Veuillez saisir votre Login...!", vbOKOnly + vbExclamation, "Erreur...!"
Exit Sub
End If

If Me.TextBox2.Value = "" Then
MsgBox "Veuillez saisir votre Mot de passe...!", vbOKOnly + vbExclamation, "Erreur...!"
Exit Sub
End If

MDP = Application.WorksheetFunction.Index(Range("motdepasse"), Application.WorksheetFunction.Match(Me.TextBox1.Value, Range("utilisateur"), 0), 1)

'MsgBox MDP

If Me.TextBox2.Value <> MDP Then

MsgBox "votre mot de passe est incorrect...!", vbOKOnly + vbCritical, "Erreur...!"

Else

For Each Feuil In Sheets
If Feuil.Name <> "Connexion" Then

If Application.WorksheetFunction.Index(Range("plage"), Application.WorksheetFunction.Match(Me.TextBox1.Value, Range("utilisateur"), 0), Application.WorksheetFunction.Match(Feuil.Name, Range("entete"), 0)) = "Oui" Then

Feuil.Visible = xlSheetVisible

Else

Feuil.Visible = xlSheetVeryHidden


End If
End If

Next

End If


End Sub