Sub worksheet_Change(ByVal Target As Range)
Dim i As Byte, j As Byte
For j = 3 To 31
For i = 3 To 46
If Cells(i, j).Value = '' Then Exit Sub
If Sheets('agent1').Cells(i, j).Value = Sheets('generale').Cells(i, 3).Value Then
Sheets('generale').Cells(i, j).Interior.Color = vbRed
Else
Sheets('generale').Cells(i, j).Interior.ColorIndex = 15
End If
Next i
Next j
End Sub