Bonjour,

dans la séquence :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
For Each shp In ActiveSheet.Shapes
        If shp.Top = catalogue.Range("D4").Top Then
ActiveSheet.Shapes(shp.Name).Copy
Quand on est certain de la position de l'image et son unicité, est-il possible de coder sans le "For each" et le "If" (je ne trouve pas dans les docs)

pour prendre directement le shape, quelque chose du genre :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Select shp.Top = catalogue.Range("D4").Top
ActiveSheet.Shapes(shp.Name).Copy