aiuto

 
 Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Not Intersect(Target, Range("C2")) Is Nothing And Target <> "" Then
 
   For i = 5 To 8
 
     For j = 3 To 12
 
       If Cells(i, j).Value = Target Then
 
         Cells(i, j).Interior.ColorIndex = 3
 
       End If
 
     Next j
 
   Next
 
 End If
 
 End Sub
 
 
 
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
   If Not Intersect(Target, Range("B10")) Is Nothing Then
 
     Range("C4:L8").Interior.ColorIndex = xlNone
 
   End If
 
 End Sub