[xl2013]macro copie graph dans fichier word (signet)

bonjour

mon probleme est assez simple j'ai une macro qui copie un graph depuis un fichier excel pour le coller au niveau du signet rep dans le doc word ouvert

sauf que message d'erreur " erreur 5342 type de données specifiée in disponible " au niveau de la ligne pastespecial

en datatype j'ai tenté

wrdApp.Selection.PasteSpecial link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdinline, displayasicon:=False

mais c'est pareil

je vous mets en pj le fichier excel et le fichier word

ci dessous la macro en question

merci

Sub Export_Graphiques_Vers_Word()
' Cette macro permet de transférer de copier les graphiques contenus
' vers un document Word (gabarit)
' Les 2 fichiers doivent se trouver dans le même répertoire.
' Il faut au préalable définir des signets dans le gabarit Word afin d'insérer le texte
'
' Grand Chaman Excel 2013-03-15
'
'Dim wrdApp As Word.Application
'Dim wrdDoc As Word.Document
Dim ws As Worksheet
Dim i As Integer
Const wdGoToBookmark = -1
Application.ScreenUpdating = False

Set ws = ThisWorkbook.Sheets(1) 'Onglet contenant les graphiques

' - On suppose que le fichier Word est déjà ouvert
Set wrdApp = GetObject(, "Word.Application") 'Word déjà ouvert
Set wrdDoc = wrdApp.ActiveDocument

' -- Copier le 1er Graphique nommé "Graph_Ventes"
ActiveSheet.ChartObjects("Graphique 1").Chart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
wrdApp.Selection.Goto what:=wdGoToBookmark, Name:="rep" ' on recherche le signet dans Word pour se positionner
'wrdApp.Selection.MoveLeft wdCharacter, 1 ' optionnel : pour se placer AVANT le signet (move left)
wrdApp.Selection.PasteSpecial link:=False, DataType:=wdPasteEnhancedMetafile, Placement:=wdinline, displayasicon:=False

' -- Terminer
wrdDoc.Save
Set wrdDoc = Nothing: Set wrdApp = Nothing
Application.ScreenUpdating = True

End Sub