Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count < 3 And Not Intersect(Target, Range("ListeDepartements")) Is Nothing Then
Dim shp As Shape, Dep As String, couleur As Long
'Vérification du contenu de la cellule
Dep = Trim(Target(1).Text)
'Si le premier caractère, n'est pas numeric, prendre la cellule à gauche de target
If Not IsNumeric(Left(Dep, 1)) Then Dep = Trim(Target(1, 0)(1).Text)
'Au cas où une cellule aurait été éfacée, sortir
If Dep = "" Then Exit Sub
Dep = "FR-" & Dep
'Mettre la couleur au nouveau 'shape' (couleur de L6)
With Me.Shapes(Dep).Fill
Select Case .ForeColor.RGB
Case Range("L6").Interior.Color: couleur = Range("L5").Interior.Color
Case Range("L5").Interior.Color: couleur = RGB(255, 255, 255)
Case RGB(255, 255, 255): couleur = Range("L6").Interior.Color
Case Else: couleur = Range("L6").Interior.Color
End Select
.Solid
.Transparency = 0#
.ForeColor.RGB = couleur
End With
End If
End Sub