XL 2013 Macro depuis excel pour piloter un document word

Sub TestA()
'Cocher la référence à la librairie Word dans VBE
'Outils/Références/Microsoft Word XX.0 Library
Dim strPath$, strDoc$, objWord As Word.Application, objDoc As Word.Document
Set objWord = CreateObject("Word.Application")
Set appWord = GetObject(, "Word.Application")
Set objDoc = objWord.Documents.Add
objWord.Visible = True
Set objSelection = objWord.Selection
strPath = "C:\Users\STAPLE\Documents\testWORD\" ' à adapter
objDoc.SaveAs "C:\Users\STAPLE\Documents\testWORD\Fusion\Agrégat.docx" 'à adapter
For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
    If Cells(i, "B").Value = "Oui" Then
        strDoc = strPath & Cells(i, "A").Value2
        With appWord.Selection
        .InsertFile Filename:=strDoc
        End With
        With objWord.Selection
        .Collapse Direction:=wdCollapseEnd
        .InsertBreak Type:=7
        End With
    End If
Next
objDoc.Save
objDoc.Close wdSaveChanges
appWord.Quit
Application.ScreenUpdating = True
End Sub

Sub TestB()
'Cocher la référence à la librairie Word dans VBE
'Outils/Références/Microsoft Word XX.0 Library
Dim strPath$, strFile$, objWord As Word.Application, objDoc As Word.Document, rng As Word.Range
strPath = "C:\Users\STAPLE\Documents\testWORD\" ' à adapter
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
objWord.Visible = True
Application.ScreenUpdating = False
strFile = Dir(strPath & "*.docx")
    Do Until strFile = ""
        Set rng = objDoc.Range
        rng.Collapse wdCollapseEnd
        rng.InsertFile strPath & strFile
        rng.InsertBreak Type:=wdPageBreak
        strFile = Dir()
    Loop
objDoc.Bookmarks("\page").Range.Delete
End Sub

Sub TestC()
'Cocher la référence à la librairie Word dans VBE
'Outils/Références/Microsoft Word XX.0 Library
Dim strPath$, strFile$, objWord As Word.Application
Dim objDoc As Word.Document, oDocFic As Word.Document, rng As Word.Range
strPath = "C:\Users\STAPLE\Documents\testWORD\" ' à adapter
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add: objWord.Visible = False
Application.ScreenUpdating = False
With ActiveSheet
    For j = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
      Set oDocFic = _
                objWord.Documents.Open(Filename:=strPath & .Cells(j, 1).Value2, _
                ReadOnly:=True, AddToRecentFiles:=False)
        With objDoc.Range
          .Collapse Direction:=wdCollapseEnd
          .InsertBreak Type:=wdPageBreak
          .Collapse Direction:=wdCollapseEnd
          .FormattedText = oDocFic.Range.FormattedText
        End With
      oDocFic.Close SaveChanges:=False
    Next
End With
objWord.Visible = True
objDoc.Bookmarks("\page").Range.Delete
End Sub