Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("M5:AQ41"), Target) Is Nothing Then
Select Case Target
Case "JR"
Target.Interior.ColorIndex = 45
Case "CP"
Target.Interior.ColorIndex = 50
Case Empty
Target.Interior.ColorIndex = 0
Case "RTT"
Target.Interior.ColorIndex = 35
Case "MAL"
Target.Interior.ColorIndex = 6
Case "RECUP"
Target.Interior.ColorIndex = 4
Case "FOR"
Target.Interior.ColorIndex = 12
End Select
End If
End Sub