Bonjour,

Je souhaiterai positionner plusieurs shapes dans une même cellule

Les shapes sont dans le feuil1
et doivent être copiées dans la cellule B5 de la feuil2

Merci pour votre aide

Voici un début de code que j'ai trouvé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sheets("Feuil1").Select
  ActiveSheet.Shapes("picture1").Select
    Selection.Copy
 
  Sheets("Feuil2").Select
      ActiveSheet.Paste
 
   With MyPicture.Shapes("picture1")
            .Top = Range("C1").Top + 10   'position verticale de l'image dans le document
       .Left = Range("C1").Left + 35    'position horizontale de l'image dans le document
 
   End With