vba - Echec méthode addOLEObject

Bonjour à tous,

J'ai un code qui génère une 100 aine de slides dans un Powerpoint et qui sur chaque slide génère un graphe avec la méthode :

Code:

---

Set ShpGraph = ppSlide.Shapes.AddOLEObject(ClassName:="MSGraph.Chart", Link:=msoFalse)

---

Cela fonctionne très bien pour les 70-80 premiers graphes (générés dans une bloucle) après quoi, toujours au même moment, j'ai un message :

"La méthode 'AddOLEObject' de l'objet 'Shapes' a échoué."

Problème d'allocation de mémoire ?
Merci.