If TextBox1 <> "" Then
Set cel = Feuil2.Range("A2:A" & Feuil2.Range("A" & Rows.Count).End(xlUp).Row).Find(TextBox1, , , xlWhole)
If Not cel Is Nothing Then
lig = cel.Row
if Cells(cel.Row,2)= textboxt2 ' si la cellule en colonne B (prénom) égale la textbox prénom
code....
end if
Else MsgBox "aucune correspondance trouvée", , "Pas de corespondance": Exit Sub
....