XL 2016 Controle des mots de passe

'Recherche mot de passe correspondant au user
Mot_de_passe = WorksheetFunction.VLookup(Txt_user, Sheets("Members").Range("b:d"), 2, 0)
'Sécurité
If Txt_user = "" Or Mot_de_passe = "" Or Txt_pass <> Mot_de_passe Then
    R = MsgBox("Nom utilisateur ou mot de passe érroné(s)", 16, "Problème de sécurité")
    Sheets("Login").Txt_user.Text = ""
    Sheets("Login").Txt_pass.Text = ""
    Exit Sub
End If

role = WorksheetFunction.VLookup(Txt_user, Sheets("Members").Range("B4:D1000"), 3, 0)
'on efface les données
Sheets("Login").Txt_user.Text = ""
Sheets("Login").Txt_pass.Text = ""
'affichage suivant User/Admin
If role = "user" Then
    Sheets("tableau de bord").Visible = True
    Sheets("tableau de bord").Activate
Else
    Sheets("content").Visible = True
    Sheets("members").Visible = True
    Sheets("compil").Visible = True
    Sheets("tableau de bord").Visible = True
    Sheets("login").Visible = 2
End If