Sub Macro1()
Dim O As Worksheet
Dim PL As Range
Dim R As Range
Dim PA As String
Set O = Worksheets("Feuil1")
Set PL = O.Range("H7:H" & O.Cells(Application.Rows.Count, "H").End(xlUp).Row)
Set R = PL.Find(293, , xlValues, xlWhole)
If Not R Is Nothing Then
PA = R.Address
Do
R.Offset(0, -1).Value = "TEST"
Set R = PL.FindNext(R)
Loop While Not R Is Nothing And R.Address <> PA
End If
End Sub