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