Remplissage de ligne avec conditions

Bonjour,

J'ai un petit souci sur une de mes macros.
Je cherche à identifier mes doublons sur ma colonne I et ensuite surligner toute la ligne en gris.
Pour identifier mes doublons j'ai fait une mise en forme conditionnelle sur ma colonne I. Je l'ai fait avec l'enregistrement de macro et ça me donne donc ça:

    
Columns("I:I").Select
    Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

Donc ensuite, pour surligner mes lignes j'ai utilisé ça:

For i = [I65000].End(xlUp).Row To 2 Step -1
If Cells(i, 9).Interior.Color = 13551615 Then Rows(i & ":" & i).Interior.ColorIndex = 48
Next i

Le problème c'est que rien ne se passe. Je suis certain que cela viens de ma condition

If Cells(i, 9).Interior.Color = 13551615

car avec une autre condition cela marche.

Donc ma question est, quel est le problème dans ma condition, et comment y remédier?

Merci d'avance pour vos réponse.
PS: Je précise que j'ai besoin que ça sois sous forme de macro car cela viens s'intégrer dans une macro plus grande.