Sub CompareColumnsAB() Set cl2 = Range("A:A") Set cl1 = Range("B:B") For Each c In cl2 MyValue = c.Value If MyValue <> "" Then Set Plage = cl1.Cells.Find(MyValue, lookat:=xlWhole) If Not Plage Is Nothing Then c.Range("A1").Interior.ColorIndex = xlNone Else: c.Range("A1").Interior.ColorIndex = 4 End If End If Next End Sub