super pour les explications mais c'est cette ligne que j'arrive pas à comprendre :
If Shp.Name Like "#*" Then 'Si
Bonjour !
If [condition] Then [instruction(s)]
--> Si ... Alors
Shp.Name
--> Nom de la forme (par exemple "Rectangle 1")
Like
permet de faire une comparaison avec un "pattern", c'est à dire un certain format / structure. Ici #
désigne n'importe quel chiffre, et *
remplace n'importe quel caractère, en quantité variable (aucun caractère ou >100 caractères, ça fonctionne).
En clair, il s'agit juste de vérifier que le nom de la forme commence par un chiffre.