Programation formule en VBA

Bonjour,

Ca fait plusieurs jour que je cherche à encoder une formule IF sous VBA, pour un classeur Excel.

Je n'arrive pâs à encoder un if avec un autre if dans la formule suivante :
ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""PO"",RC,IF(RC[-19]=R[-1]C[-19],R[-1]C,RC[1])"

Si aprés le bout de code qui nous interresse.

Dim COLIO, COLType As String

COLNotif = "W"
COLIO = "G"
COLType = "V"

vLastline = ActiveSheet.UsedRange.Rows.Count
Cells.Select

Selection.Sort Key1:=Range(COLIO & "2"), Order1:=xlAscending, Key2:= _
Range(COLType & "2"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:= _
xlSortTextAsNumbers, DataOption2:=xlSortNormal
Columns(COLNotif & ":" & COLNotif).Select
Selection.Copy
Columns(COLNotif & ":" & COLNotif).Select
Selection.Insert Shift:=xlToRight
Range(COLNotif & "1").Select
ActiveCell.FormulaR1C1 = "PWO"

'Recherche et copie du PWO
Range(COLNotif & "2").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""PO"",RC,IF(RC[-19]=R[-1]C[-19],R[-1]C,RC[1])"


Range(COLNotif & "2").Select
Selection.Copy
Range(COLNotif & "2:" & COLNotif & vLastline).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Columns(COLNotif & ":" & COLNotif).EntireColumn.AutoFit
Range(COLNotif & "2").Select
Application.CutCopyMode = False


Merci par avance de toutes assistance

Un débutant ...