macro, mise en forme conditionnelle

Comment mettre en rouge les lignes dont les chiffres sont redondants dans
une colonne
tout cela dans une macro si c'est possible

Sub zzz()
For Each c In Range("Plage")
If Application.CountIf(Range("Plage"), c.Value) > 1 Then
c.Interior.ColorIndex = 35
Next
End Sub

Ceci dit, je ne vois vraiment pas pourquoi tu ne veux pas utiliser une MEFC !
AV