Insertion graphique vers Word

Hello à tous,

J'essaie d'exporter un graphique Excel vers Word, mais je n'ai pas les bons termes…

Vous trouverez ci-dessous le code que j'utilise :

Dim WordApp As Word.Application, WordDoc As Word.Document, chemin As String

fichier = ThisWorkbook.Path & "\Doc1.docx"

Set WordApp = CreateObject("Word.Application") 'ouvre session word et le fichier voulu
Set WordDoc = WordApp.Documents.Open(fichier) 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation

On Error Resume Next
Application.DisplayAlerts = False

With WordDoc
.Bookmarks("signet1").Range.Text = [AA12].Text
.Bookmarks("signet2").Range.ChartArea = [Chart 16].ChartObjects 'LE PROBLEME EST ICI

'.Save
End With

'Set WordApp = Nothing
'Set WordDoc = Nothing
'WordDoc.Save  'si on veut fermer le document word en sauvegardant les données
WordDoc.Visible = True 'affiche le document Word 'WordDoc.PrintOut 'si on veut imprimer
'WordApp.Quit 'ferme la session Word
End Sub

Merci d'avance,

Théo