Objet incorporé - Word

Option Explicit
'cochez la référence Microsoft Word 12.0 Object Library
Private Sub CommandButton1_Click()
Passage_Excel_Word
End Sub

Sub Passage_Excel_Word()
 Dim appWord As New Word.Application
 Dim docWord As New Word.Document
With appWord
   .Visible = True
  Set docWord = appWord.Documents.Open(ThisWorkbook.Path & "\essai.docx")
   .Activate
 End With
'Dans Word on ajoute une ligne de titre avec une mise en forme
 With appWord.Selection
   .Font.Size = 18
   With .Font
   .Name = "Arial"
   .Size = 16
   .Bold = True
   End With
'Copier  Excel dans le presse papier
  Range("A1").Copy
'Coller  dans Word
   .TypeParagraph
   .Paste
 End With
'Enregistrer le document Word
 With docWord
  '.SaveAs ThisWorkbook.Path & "\essai.docx", Allowsubstitutions:=True  ' c'est cette ligne qui enregistre, mets la en commentaire et tu pourras enregistrer si tu le désires 
'Dans Word Aperçu avant impression du résultat
   ' .PrintPreview
'Réinitialiser l'objet
  Set appWord = Nothing
 End With
End Sub