Worksheets("ACCUEIL").Range("A8").Value = "Connexion : " & VarLogin & " réussie"
'********ICI
If VarLogin = "ADMIN" Then
ActiveWindow.DisplayHeadings = True
Else
ActiveWindow.DisplayHeadings = False
End If
'***********
'Sinon mdp mauvais
Else
'On affiche une msgbox pour indiquer de retenter
MsgBox "Votre mot de passe est incorrect, veuillez re-essayer."
Exit Sub
End If
'DEFILEMENT TEXTE
Sheets("ACCUEIL").Select