evidenziare celle in automatico

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Not Intersect(Target, Range("C:C")) Is Nothing Then
With Sheets("fiore").Range("b:b")
            Set rng = .Find(What:=Target.Value, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not rng Is Nothing Then
                Target.Interior.Color = 14083324
                Target.Offset(0, 1).Interior.Color = 14083324
            Else
               Target.Interior.Color = xlNone
                Target.Offset(0, 1).Interior.Color = xlNone
            End If
        End With
End If
End Sub