Colorisation secteur par clic

Sub CouleurSecteur()
  With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
  .RGB = IIf(.RGB = RGB(255, 255, 255), RGB(0, 176, 80), RGB(255, 255, 255))
  End With
End Sub

Dim test As Boolean 'déclare la variable test

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pl As Range 'déclare la variable pl (PLage)

If test = True Then Exit Sub 'si test est vrai, sort de la procédure
Set pl = Application.Union(Range("B2:C3"), Range("E2:F3"), Range("H2:I3"), Range("K2:L3")) 'définit la variable pl
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub 'le le clic a lieu ailleurs que dans la plage pl, sort de la procédure
test = True 'définit la variable test
If Target.Value = "" Then 'condition : si a cellule cliquée est vide
    Target.Font.ColorIndex = 50 'couleur de la polioce vert marin
    Target.Interior.ColorIndex = 50 'couleur de la cellule vert marin
    Target.Value = 1 'valeur de la cellule égale à 1
Else 'sinon
    Target.Font.ColorIndex = 1 'couleur de la police noir
    Target.Interior.ColorIndex = xlNone 'couleur de la cellule "sans"
    Target.Value = "" 'efface la valeur de la cellule
End If 'fin de la condition
Cells(1, Target.Column).Select 'sélectionne la cellule de la première ligne
test = False 'redéfinit la variable test
End Sub

Sub CouleurSecteur()
  Dim s As Object
  ThisWorkbook.Names.Add "CAS", ([CAS] + 1) Mod 5
  Select Case [CAS]
    Case 1
      Set s = ActiveSheet.Shapes("Secteurs 1")
    Case 2
      Set s = ActiveSheet.Shapes.Range(Array("Secteurs 1", "Secteurs 2"))
    Case 3
      Set s = ActiveSheet.Shapes.Range(Array("Secteurs 1", "Secteurs 2", "Secteurs 3"))
    Case 4
      Set s = ActiveSheet.Shapes.Range(Array("Secteurs 1", "Secteurs 2", "Secteurs 3", "Secteurs 4"))
    Case 0
      ActiveSheet.Shapes.Range(Array("Secteurs 1", "Secteurs 2", "Secteurs 3", "Secteurs 4")) _
        .Fill.ForeColor.RGB = RGB(255, 255, 255) 'blanc
        Exit Sub
  End Select
  s.Fill.ForeColor.RGB = RGB(0, 176, 80) 'vert
End Sub

Sub CouleurSecteur()
  Dim a(), i As Integer
  a = Array("Secteurs 1", "Secteurs 2", "Secteurs 3", "Secteurs 4")
  ThisWorkbook.Names.Add "CAS", ([CAS] + 1) Mod 5
  ActiveSheet.Shapes.Range(a).Fill.ForeColor.RGB = RGB(255, 255, 255) 'blanc
  For i = 0 To [CAS] - 1
    ActiveSheet.Shapes.Range(a(i)).Fill.ForeColor.RGB = RGB(0, 176, 80) 'vert
  Next
End Sub

Sub Secteurs()
[Cible] = ([Cible] + 25) Mod 125 'cellule nommée
End Sub