changer couleur cellule

bonjour,
je souhaite dans une colonne, colorier les cellule qui ont la meme valeur de la meme couleur (les cellules sont classées pas ordre croissant donc les cellules similaires sont voisines.
Cependant, j'utilise une boucle for, et je veux alterner la couleur pour n'en utiliser que deux differentes mais mon code ne marche pas

pouvez vous y jetter un coup d'oeil?

voici

Dim couleur
couleur = 4

For x = Range("A65536").End(xlUp).Row To 3 Step -1
If couleur = 4 Then
couleur = 3
ElseIf couleur <> 4 Then
couleur = 4
If Range("A" & x) <> "" Then


Range("A" & x).Select
Selection.Interior.ColorIndex = couleur
Do While Range("A" & x - 1) = Range("A" & x)
Range("A" & x - 1).Select
Selection.Interior.ColorIndex = couleur
x = x - 1


Loop
End If
If couleur = 4 Then
couleur = 3
ElseIf couleur = 3 Then
couleur = 4
Next


merci mcerci