Macro VBA pour Comparaison de tableaux excel

Bonjour,

j'ai trouvé une formule pour effectuer la comparaison de cellules, mais elle ne s'applique qu'à la première ligne de mon tableau (qui peut faire jusqu'à 2000 lignes, nombre variable) :

Sub Macro2()
'
' Macro2 Macro
'
Dim DerLigne As Long
With ActiveSheet
DerLigne = .Cells(Rows.Count, 1).End(xlUp).Row

.Range("Y5:Y" & DerLigne).FormulaR1C1 = "=IF(RC[-23]=RC[-11],""ok"",""Faux"")"
.Range("Z5:Z" & DerLigne).FormulaR1C1 = "=IF(RC[-23]=RC[-11],""ok"",""Faux"")"
.Range("AA5:AA" & DerLigne).FormulaR1C1 = "=IF(RC[-23]=RC[-11],""ok"",""Faux"")"
.Range("AB5:AB" & DerLigne).FormulaR1C1 = "=IF(RC[-17]=RC[-4],""ok"",""Faux"")"
.Range("AC5:AC" & DerLigne).FormulaR1C1 = "=IF(RC[-23]=RC[-11],""ok"",""Faux"")"

End With

End Sub

où est l'erreur?