mah, al codice del foglio ci puoi aggiungere questo:

codice:
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column >= 3 And Target.Column <= 7 Then
        If IsNumeric(Target.Value) = True Then
            Colori
        End If
    End If
End Sub
ma ti tocca ritornarci sopra ad ogni casella che riempi...
non so quanto ne valga la pena...