Private Sub CommandButton1_Click()
Dim choix As Variant
choix = TextBox1.Value
Range("A1").Select
For x = 1 To 10
ActiveCell.Offset(x, 0).Select
On Error Resume Next
pos = Application.WorksheetFunction.Search(choix, ActiveCell.Text)
If Not IsEmpty(pos) Then ActiveCell.Characters(pos, 99).Font.Color = TextBox2.BackColor
Next
End Sub