Sub ColorieDepartement(CelMod As Range)
Dim Couleur As Long
Dim idx As Variant
With ThisWorkbook.Sheets(1)
idx = Application.Match(CelMod, .Range("C10:C44"), 1)
If IsError(idx) Then Couleur = 16777215 Else Couleur = .Range("D10:D44")(idx).Interior.Color
With .Shapes(CelMod(, 0))
.Fill.Solid
.Fill.Transparency = 0#
.Fill.ForeColor.RGB = Couleur
End With
End With
End Sub