Shape.Duplicate (Excel)

Cette méthode duplique l'objet et renvoie une référence à la nouvelle copie.

Dim shp As Shape: Set shp = 
Dim shpDuplicate As Shape
Set shpDuplicate = shp.Duplicate()