Bonsoir Hendji45380,
La propriété PasteSpecial qui suit occasionnellement une procédure de copie ne s'applique que si l'objet copié est une cellule ou groupe de cellules.
Donc une classe Range.
Et non ici comme le montre ton code une copie de formes. Sh.copy
L'objet Shape n'est nullement concerné.
La solution est que tu commentes d'avantage ton code afin de mieux discerner tes différents traitements.
Et surtout que tu poste ton code grâce au menu proposé par le site. Ici utilise </> (Code) le 15ième bloc en haut des messages.
Revoir la Charte utile