Copier coller un graphique en format image

Bonjour à tous je souhaite copier coller un graphique sous forme d'image, j'ai une erreur à la dernière ligne : Impossible de lire la propriété paste de la classe Pictures.

Est ce que quelqu'un peut me donner un coup de main svp ?

Merci !

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sheets("ResearchTool").ChartObjects("Graphique 4").Activate Sheets("ResearchTool").ChartObjects("Graphique 4").Select Application.CutCopyMode = False ActiveChart.ChartArea.Copy   Sheets("GRAPH").Select k = ((n - 3) * 10) + 10 Range("A" & k).Select   ActiveSheet.Pictures.Paste.Select

---

essaye avec ceci sur te dernière ligne

Code:

---

ActiveSheet.Paste

---

Bonne journée.

J'ai essayé et il y a toujours une erreur.

"La méthode paste de la classe Worksheet a échoué."

A lire : https://msdn.microsoft.com/fr-fr/lib.../ff841052.aspx

Code:

---

1 2 3

Sheets("ResearchTool").ChartObjects("Graphique 4").CopyPicture Sheets("GRAPH").Range("A" & ((n - 3) * 10) + 10).Select Sheets("GRAPH").Paste

---