Problème VBA qui s'exécute pas

Bonjour ,

voici une macro qui me permet de colorer de le fond des cellules qui ne sont pas vides et qui n'ont pas le fond bleu .

Je n'arrive pas à corriger mon erreurs voici la macro :

Sub rouge()
For Each Cellule In Range("A2:Y30")
If Cellule <> "" And Cellule <> Cellule.Interior.ColorIndex = 5 Then
Cellule.Interior.ColorIndex = 3
End If
Next
End Sub

Merci d'avance .

Bonjour,

Si j'ai bien compris :

Sub rouge()
For Each Cellule In Range("A2:Y30")
    If Cellule <> "" And Cellule.Interior.ColorIndex <> 5 Then
        Cellule.Interior.ColorIndex = 3
    End If
Next
End Sub

Cdlt,

Merci pour votre réponse