Private Sub CommandButton1_Click()
Dim Ele
Dim SearchRange As Range
Set SearchRange = Worksheets("Feuil2").UsedRange
With SearchRange
Set Ele = .Find(Me.ComboBox1.Value, , xlValues, xlWhole)
If Not Ele Is Nothing Then
Ele.Value = Ele.Value & " X"
End If
End With
End Sub