Positionner Horizontalement les 3 rectangles

Bonjour le forum

J'ai déjà fait une demande de ce genre sur le forum mais là j'ai un petit souci vu les commentaires dans la macro bien que superbement expliqué par ric je crois

J'ai adapté tout sauf qu'il a fallu que je tâtonne pas mal pour arriver à mettre le Rectangle 6 (330) ou alors j'ai pas tout compris ce qui est fort possible!!!

Fichier joint

Je viens de voir qu'il y a un End Sub qui traine dans ThisWorkbook

Merci pour vos éventuelles réponses

Bonjour

Le End Sub tu peux le supprimer

Bonjour

Mais ça n'apporte pas la solution.

Cordialement