Sub hihihi()
Dim n As Integer
[C2] = Right$(Mid(Application.Caller, InStr(Application.Caller, "-") + 1), 2)
' ôter toutes les couleurs
For n = 1 To ActiveSheet.Shapes.Count - 3
ActiveSheet.Shapes(n).Fill.ForeColor.SchemeColor = 9
Next n
' ci-dessous on colorie tous les dépt concernés en bleu
Select Case [C2]
Case 8, 10, 51, 52 '(champagne-ardennes)
ActiveSheet.Shapes("FR-08").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-10").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-51").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-52").Fill.ForeColor.SchemeColor = 4
Case 54, 55, 57, 88 '(lorraine)
ActiveSheet.Shapes("FR-54").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-55").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-57").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-88").Fill.ForeColor.SchemeColor = 4
Case 2, 60, 80 '(picardie)
ActiveSheet.Shapes("FR-02").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-60").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-80").Fill.ForeColor.SchemeColor = 4
Case 59, 62 '(nord-pas-de-calais)
ActiveSheet.Shapes("FR-59").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-62").Fill.ForeColor.SchemeColor = 4
Case 75, 92, 93, 94, 77, 78, 91, 95, 175, 192, 193, 194 '(ile de france)
ActiveSheet.Shapes("FR-75").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-92").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-93").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-94").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-77").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-78").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-91").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-95").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-175").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-192").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-193").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-194").Fill.ForeColor.SchemeColor = 4
Case "2A", "2B" '(Corse)
ActiveSheet.Shapes("FR-2A").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("FR-2B").Fill.ForeColor.SchemeColor = 4
End Select
On Error Resume Next
' et on colorie le dépt cliqué en vert
If [C2] = "2A" Then ActiveSheet.Shapes("FR-2A").Fill.ForeColor.SchemeColor = 3
If [C2] = "2B" Then ActiveSheet.Shapes("FR-2B").Fill.ForeColor.SchemeColor = 3
choix = Format(CStr([C2]), "00")
ActiveSheet.Shapes("FR-" & choix).Fill.ForeColor.SchemeColor = 3
Select Case [C2] ' dépt en ile de france
Case 75 '(ile de france)
ActiveSheet.Shapes("FR-175").Fill.ForeColor.SchemeColor = 3
Case 92 '(ile de france)
ActiveSheet.Shapes("FR-192").Fill.ForeColor.SchemeColor = 3
Case 93 '(ile de france)
ActiveSheet.Shapes("FR-193").Fill.ForeColor.SchemeColor = 3
Case 94 '(ile de france)
ActiveSheet.Shapes("FR-194").Fill.ForeColor.SchemeColor = 3
End Select
End Sub