Sub fusiondoc_II()
Dim wrdApp As Object, wrdDoc1 As Object, strPath$, rng
strPath = ThisWorkbook.Path & "\"
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc1 = wrdApp.Documents.Open(strPath & "blagues1.docx")
Set rng = wrdDoc1.Range
With rng
.Collapse 0
.InsertBreak 2
.End = wrdDoc1.Range.End
.Collapse 0
.InsertFile strPath & "blagues2.docx"
End With
wrdDoc1.SaveAs strPath & "Blaguounettes.docx"
wrdDoc1.Close True
wrdApp.Quit
End Sub