Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("B4:E31")) Is Nothing Then
Target.Interior.Color = xlNone
For Each c In Sheets("Listes").Range("codecouleur")
If Target.Value = c.Value Then
Range(Target, Target).Interior.Color = c.Interior.Color
End If
Next c
End If
End Sub