Sub ColorieDepartement(CelMod As Range)
Dim Ligne As Long
Dim Couleur As Long
Dim Formes As Object
Ligne = CelMod.Row
With ThisWorkbook.Sheets(1)
Set Formes = .Shapes(.Cells(Ligne, 2))
With Formes
.Fill.Solid
.Fill.Transparency = 0#
.Fill.ForeColor.RGB = CouleurDep(ThisWorkbook.Sheets(1).Cells(Ligne, 3).Value)
With .TextFrame2.TextRange
.Characters.Text = ThisWorkbook.Sheets(1).Cells(Ligne, 3).Value
.Characters().Font.Size = 8
.Parent.VerticalAnchor = msoAnchorMiddle
.Parent.HorizontalAnchor = msoAnchorNone
If Ligne = 94 Then
ActiveSheet.Shapes.Range(Array(Cells(94, 2))).Select
Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignLeft
End If
End With
End With
End With
End Sub