préciser la procédure et la ligne en erreur.
Par ailleurs avec la ligne
If Feuil2.Cells(i, 3)) Like "*" & UCase(Me.TextBox1.Value) & "*" Then
si dans la feuille la donnée est en minuscule, le test sera toujours faux. Il vaudrait mieux:
If UCase( Feuil2.Cells(i, 3)) Like "*" & UCase(Me.TextBox1.Value) & "*" Then