Bonjour,
il faut copier cette macro sur la page code de la feuille "BD"
Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("C:C"))
If isect Is Nothing Then Exit Sub
couleur = Application.Index(Sheets("code couleur").Range("B:B"), Application.Match(Target, Sheets("code couleur").Range("A:A"), 0))
Range("A" & Target.Row & ":K" & Target.Row).Interior.ColorIndex = couleur
End Sub