[Excel VBA] Macro teste couleurs.

Bonjour,

Je souhaite faire une macro qui teste la couleur d'une plage de cellule et en affecte une autre si besoin. La plage de cellule est selectionnée avant de lancer la macro, et je pense que c'est ce point qui pose problème, mais je ne sais pas comment le traiter. Voici mon code, qui tourne, mais ne marche pas!

Sub CouleurBlanche()  
'  
' CouleurBlanche Macro  
' Macro enregistrée le 23/05/2011 par PERNOTBE  
'  

'  

For Each Cell In Selection  
If Cell.Interior.ColorIndex = x1None Then  
Cell.Selection.Interior.ColorIndex = 4  
End If  
Next Cell  

End Sub  

Merci d'avance !