'Déclaration des variables Dim DocWord As word.Document Dim AppWord As word.Application Set AppWord = New word.Application 'Ouvre le document Word Set DocWord = AppWord.Documents.Open("d:\user\essai.doc", ReadOnly:=False) 'Création du graphique et sa copie 'Ne prends que la copie :) Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:B6") ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1" ActiveChart.Axes(xlValue).MajorGridlines.Select ActiveChart.ChartArea.Select ActiveWindow.Visible = False Windows("Classeur1").Activate 'ICI tu copies ton graphe ActiveSheet.ChartObjects("Graphique 1").Copy 'Désactivation des messages d'alerte Application.DisplayAlerts = True AppWord.ShowMe AppWord.Visible = True 'Collage du graphe dans Word DocWord.Range.PasteSpecial Application.CutCopyMode = False 'Sauvegarde du document Word DocWord.Application.ActiveDocument.Save AppWord.Application.Quit