Tri pour le publipostage

Bonjour,

J'espère que vous pourrez m'aider.

J'ai réussi à utiliser une macrocommande pour lancer l'impression depuis Excel, sans que Word s'ouvre.
Y a juste un petit problème.
Enfait, j'ai deux fichier Word, tout le deux connecté à la même base de donnée Excel, là où se trouve le bouton.
Hors, le premier document Word est consacré aux Courrier, donc à envoyer à l'impression, et l'autre aux Mails.
J'ai déjà déposer un filtre sur chacun des deux pour qu'ils ne prennent en compte que les destinataires qui les consernes.
Sauf que lorsque je lance cette macro pour le document des Courriers:

***

Sub commandButton1_Click()
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
Dim docWord As word.Document
Dim appWord As word.Application
Dim NomBase As String

NomBase = "C:\Users\astc1\Desktop\PERRINE\Travail\Publipostage\Base de donnée pour le publipostage.xlsm"

Application.ScreenUpdating = False
Set appWord = New word.Application
appWord.Visible = True
'Ouverture du document principal Word
Set docWord = appWord.Documents.Open("C:\Users\astc1\Desktop\PERRINE\Travail\Publipostage\Publipostage pour Courrier.docm")

'fonctionnalité de publipostage pour le document spécifié
With docWord.MailMerge
'Ouvre la base de données
.OpenDataSource Name:=NomBase, _
Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & NomBase & "; ReadOnly=True;", _
SQLStatement:="SELECT * FROM [Feuil1$]"
'Spécifie la fusion vers l'imprimante
.Destination = wdSendToPrinter
.SuppressBlankLines = True
'Prend en compte l'ensemble des enregistrements
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
'Exécute l'opération de publipostage
.Execute Pause:=False
End With

Application.ScreenUpdating = True

'Fermeture du document Word
docWord.Close False
appWord.Quit
End Sub

***

Il ne prend pas en compte le tri que j'ai fait sur le publipostage.
Pour information, j'ai trouver la macro sur:https://silkyroad.developpez.com/Excel/PublipostageWordExcel/#LX (pour ceux que ça intéresse)

Je suis sous Excel et Word 2000.

Merci de votre aide,
Cordialement,
Perrine.