Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = Word.Application
wordApp.Visible = True
Set wordDoc = wordApp.ActiveDocument
...
Selection.Copy
With wordApp.Selection
.PasteSpecial DataType:=wdPasteEnhancedMetafile, Link:=False, Placement:=wdInLine, DisplayAsIcon:=False
.InsertBreak Type:=wdPageBreak 'saut de page
End With