Sub compare()
'on cherche la dernière ligne du tableau
Derligne = Range("CD1").End(xlDown).Row
Set maplage = Range("CD1:CD" & Derligne)
'maplage.Select
For Each ele In maplage
If ele <> ele.Offset(0, 1) Then
ele.Interior.ColorIndex = 3
End If
Next ele
End Sub