Sub evidenzia() Dim i As Integer Dim ur As Long ur = Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To ur If Range("a" & i).Value <> Range("a" & i).Offset(-1, 0).Value Then Range("a" & i).Interior.ColorIndex = 6 End If Next i End Sub