Private Sub CommandButton1_Click()
Dim Identités, action$
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Identités = _
Array(Array("Admin", "12345"), Array("Yann", "12346"), Array("Staple", "1600"), Array("Nom4", "1601"), Array("Nom5", "abc1"), _
Array("Nom6", "Papa"), Array("Nom7", "Maman"), Array("Nom8", "Hola0"), Array("Nom9", "VBA18"), Array("Nom10", "Tacos76"), _
Array("Nom11", "pipi01"), Array("Nom12", "Ban3A1"), Array("Nom13", "Prout18"), Array("Nom14", "1515"), Array("Nom15", "1664"), _
Array("Nom16", "04440"), Array("Nom17", "123123"), Array("Nom18", "mdP115"), Array("Nom19", "5857"), Array("Nom20", "x3Vp1"))
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
action = "Connexion au classeur"
If TextBox2 = Application.VLookup(TextBox1.Text, Identités, 2, 0) Then
MsgBox "Connexion réussie"
Call HistoriqueConnexion(action, Me.TextBox1)
Else
MsgBox "Accès refusé!", vbCritical, "Erreur"
End If
End Sub