XL 2016 MACRO REMPLACER PAR

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

Sub Macro1()
Dim Lig&: Lig = Cells(Rows.Count, "H").End(3).Row
Range("I7:I" & Lig) = "=IF(RC[-1]=293,""$"",0)"
Columns(9).SpecialCells(-4123, 2).Offset(, -2).Value = "TEST": Columns(9) = Empty
End Sub