Sub Colorier()
Dim f As Integer
Dim c As Range
Dim ShapeName As String
Dim rang As String
Application.ScreenUpdating = False
'on remet tous les départements en blanc
For f = 1 To ActiveSheet.Shapes.Count
Sheets("Map").Shapes(f).Fill.ForeColor.RGB = RGB(255, 255, 255)
Sheets("Map").Shapes(f).Line.ForeColor.RGB = RGB(166, 166, 166)
Next f
With Sheets("Data")
For Each c In .Range("B2:B" & .Range("C65536").End(xlUp).Row)
ShapeName = c.Value
rang = c.Row
.Cells(rang, 5).Interior.color = CouleurMFC(Range("E" & rang), 1)
Sheets("Map").Shapes(ShapeName).Fill.ForeColor = CouleurMFC(Range("E" & rang), 1)
Next c
End With
End Sub