essaye cela
Sub test()
x_value = 25
Set x_sheet = ActiveSheet
Set x_column = x_sheet.Columns(1)
Set x_target = x_column.SpecialCells(xlCellTypeConstants, xlNumbers)
Set xx1 = x_target.Find("25", LookIn:=xlValue, MatchCase:=True, lookat:=xlWhole)
Set xx2 = x_target.Find("-" & 25, LookIn:=xlFormulas, MatchCase:=True, lookat:=xlWhole)
Debug.Print xx1.Address
Debug.Print xx2.Address
If Not xx1 Is Nothing And Not xx2 Is Nothing Then _
xx1.Offset(, 1).Value = "X": xx2.Offset(, 1).Value = "X"
End Sub
bye
STéphane