Private Sub Recherche_Click()
Dim nom
Dim NumLigne
On Error Resume Next
nom = TextBox2.Value
Cells.Find(What:=(nom), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder _
:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
With Application.ActiveCell
NumLigne = .Row
End With
ActiveCell.EntireRow.Select
Valeur = ActiveCell.EntireRow
ListBox1.additem(valeur)
Exit Sub
End Sub