XL 2019 Exporter des données Excel vers Word

Sub a()
  Dim objWord As Object
  Dim objDoc As Object
  Set objWord = CreateObject("Word.Application")
  'Set objDoc = objWord.Documents.Add
  Set objDoc = objWord.Documents.Open("H:\Téléchargements\evaluation.docx")
  objWord.Visible = True
End Sub

Sub Diagnostic_Evaluation_PAF()
    
    '// Défintion variable
    Dim Wapp As Object, Wdoc As Object
    
    '// création du document Word
    On Error Resume Next
    Set Wapp = GetObject("Word.Application")
    If Err Then Set Wapp = CreateObject("Word.Application")
    On Error GoTo 0
    Wapp.Visible = True
    Set Wdoc = Wapp.Documents.Add
    
    '// remplissage du document avec la feuille Modèle
    Feuil2.UsedRange.Copy
    Wdoc.Content.Paste
    Application.CutCopyMode = 0
    Wdoc.PageSetup.LeftMargin = 150 'à adapter
 
    '// Sauvegarde du document
    Wdoc.SaveAs ThisWorkbook.Path & "\Diagnostic et Evaluation " & Feuil1.[C3] & ".docx"
    
    '// Fermeture du document et application Word
    Wdoc.Close False
    Wapp.Quit
    
    MsgBox "Exportation Word effectuée"
 
End Sub