Sub Test_Recherche()
Dim VAR_NOM As Variant, VAR_Prénom() As Variant, VAR_Matricule() As Variant
Dim Recherche As String
Dim i As Long
VAR_NOM = Range("N3:N10")
VAR_Prénom = Range("O3:O10")
VAR_Matricule = Range("P3:P10")
Recherche = Range("L2").Value & Range("L3").Value & Range("L4").Value
For i = 1 To UBound(VAR_NOM, 1)
If VAR_NOM(i, 1) & VAR_Prénom(i, 1) & VAR_Matricule(i, 1) = Val_Cherchée Then
MsgBox "Utilisateur autorisé !"
Exit For
End If
Next i
End Sub