Dim c As Range 'mémorise la variable
Private Sub CommandButton1_Click()
Set c = [A:A].Find(TextBox1, IIf(c Is Nothing, [A1], c), xlValues, xlWhole)
If c Is Nothing Then
[A1].Select
MsgBox "Fiche produit '" & TextBox1 & "' non présente", vbCritical
Else
c.EntireRow.Select 'sélectionne la ligne entière
End If
End Sub
Private Sub TextBox1_Change()
Set c = Nothing 'RAZ
End Sub