Microsoft 365 VBA et publipostage

Sub mTest()
Dim Base_XL$
Base_XL = "C:\Users\Staple1600\Documents\Tests\Base_Fuz.xlsx" '<-adapter chemin et nom fichier
ActiveDocument.MailMerge.OpenDataSource Name:=Base_XL, Connection:="Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdLastRecord
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
End Sub

Option Explicit
Const SOURCE_XLS_PATH As String = "C:\Users\Staple\Documents\dec2020\test_Fuz.xlsx"
Const SOURCE_DOC_PATH As String = "C:\Users\Staple\Documents\dec2020\TestPublic.docx"
Sub Publipostage_test_OK()
Dim appWord As Word.Application
Dim docWord As Word.Document
Application.ScreenUpdating = False
Set appWord = New Word.Application
Set docWord = appWord.Documents.Open(SOURCE_DOC_PATH)
appWord.Visible = True
With docWord.MailMerge
    .OpenDataSource Name:=SOURCE_XLS_PATH, SQLStatement:="SELECT * FROM `Feuil1$` D WHERE D.[sinistre] = 'incendie'"
    .DataSource.ActiveRecord = wdLastRecord
    .Destination = wdSendToNewDocument
    .SuppressBlankLines = True
        With .DataSource
        .FirstRecord = wdDefaultFirstRecord
        .LastRecord = wdDefaultLastRecord
        End With
    .Execute Pause:=False
End With
Set docWord = Nothing
End Sub

Const SOURCE_XLS_PATH As String = "C:\Users\Staple\Documents\dec2020\test_Fuz.xlsx"
Const SOURCE_DOC_PATH As String = "C:\Users\Staple\Documents\dec2020\TestPublic.docx"