Déplacer graphique Word VB

Bonjour,

Voila mon souci, je génère un graphique via une macro VB sous Word, mais mon graphique n'est pas généré ou je le souhaite.
J'ai utilisé un système de signet pour le reste de mon document avec succès mais pour le graphique ça ne veut pas. Mon graphique se retrouve généré sur la première page de mon document word et non pas sur le signet que j'ai désigné.
Quelqu'un aurait une idée?

Set Doc = ActiveDocument
Doc.Activate
Doc.Bookmarks("graphique").Select
Set Chart = ActiveDocument.Shapes.AddChart.Chart
Set chartWorkSheet = Chart.ChartData.Workbook.Worksheets(1)