Pb sélection plusieurs shapes

Bonjour à tous,

Etant plutôt débutant en VBA, je voulais savoir si il était possible de sélectionner toutes les shapes d'une feuille selon leur nom.

Je m'explique :

J'ai des shapes que je duplique,1,2,3,4fois, et qui donc comporte le meme nom : un chiffre ex 1564845

Je voudrais que en cliquant sur l'une d'elle, il me les selectionne toutes ( en meme temps ) et ensuite, qu'il me les déplacent ensemble

Voici mon essai, mais vba me les sélectionne chacune son tour

Sub selectionmemenom()
nomselection = ActiveWindow.Selection.ShapeRange.name

For Each Sh In ActiveSheet.Shapes
If nomselection = Sh.name Then
Sh.Select
End If
Next

End Sub

Merci d'avance

Personne n'a d'idée ??

en gros, une formule pour ajouter a la sélection en cours des objets

Un peu comme la formule "union" pour les cellules

Merci

Bonsoir

Cela va paraître bête comme demande mais

Ho non, ce n'est pas bête :

Le voila !

Etape 1 : Selectionner un shape

Etape 2 : cliquer sur la macro

Etape 3 : Voir tous les shapes, qui on le nom de la shape de l'étape 1, sélectionnés en meme temps

Merci

Bonjour

Un vrai casse tête

A tester

Sub Test()
Dim I As Integer
Dim NomSh As String
Dim Tablo()
Dim Indice As Integer

  NomSh = ActiveWindow.Selection.ShapeRange.Name
  For I = 1 To ActiveSheet.Shapes.Count
    If ActiveSheet.Shapes(I).Name = NomSh Then
      ReDim Preserve Tablo(Indice)
      Tablo(Indice) = I
      Indice = Indice + 1
    End If
  Next I
  ActiveSheet.Shapes.Range(Tablo).Select
End Sub

N.I.Q.U.E.L

Je vais me renseigner sur les tableaux pour voir mieux comment ca fonctionne

Merci