Bonsoir TICO
Bonsoir à tous
Quand tu crées un rectangle (shape) VBA lui assigne un 'N°' du type :
ActiveSheet.Shapes('Rectangle 6').Select
Je ferais, mais je ne suis pas un grand costaud en VBA, une boucle sur ces références en changeant la propriété des rectangles :
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
Bien sur un bouton mise à jour est à créer
Ce n'est peut être pas très académique, mais cela doit fonctionner
J'espère que je t'ai un petit peu aider, mais les cracs vont certainement te donner de meilleures idées.
Cordialement