Sub Test()
Dim Cellule As Range
For Each Cellule In Union(Sheets("Feuil1").Cells.SpecialCells(xlCellTypeConstants), _
Sheets("Feuil1").Range(Sheets("Feuil2").Cells.SpecialCells(xlCellTypeConstants).Address))
If Cellule <> Sheets("Feuil2").Range(Cellule.Address) Then Cellule.Interior.ColorIndex = 6 _
Else Cellule.Interior.ColorIndex = 2
Next
End Sub