Sub Colore()
' Couleurs par défaut des rectangles ( ici la même couleur )
CouleurRectangle1 = RGB(219, 238, 244)
CouleurRectangle2 = RGB(219, 238, 244)
CouleurRectangle3 = RGB(219, 238, 244)
' Couleur du rectangle selectionné
CouleurRectSelect = RGB(255, 0, 0)
' Mettre les couleurs initiales
ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.RGB = CouleurRectangle1
ActiveSheet.Shapes("Rectangle 2").Fill.ForeColor.RGB = CouleurRectangle2
ActiveSheet.Shapes("Rectangle 3").Fill.ForeColor.RGB = CouleurRectangle3
' Mettre la couleur sur le rectangle selectionné
ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB =...