Dim c As Range, Ref As Range
Set Ref = Intersect(Target, Range("C:C"))
If Not Ref Is Nothing Then
For Each c In Intersect(Target, Range("C:C"))
If UCase(c) = "GRIS" Then
[COLOR="Red"]With Range(c.Offset(0, -1), c.Offset(0, 7)).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
.PatternTintAndShade = 0
End With[/COLOR]
[COLOR="Blue"] With Range(c.Offset(0, -1), c.Offset(0, 7)).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With[/COLOR]
End If
Next
End If