Séparation par section-publipostage Word-problème de macro

Bonjour,

Afin de séparer mes documents issus d'un publipostage, j'ai appliqué la Macro suivante ci-dessous.

Le problème est que lorsque j'exécute la Macro, dans  chacun des fichiers individuels crée, je retrouve l'ensemble du publipostage (avec même un doublon de l'un d'entre eux).

Quelqu'un a-t-il une solution à me proposer?

J'ai beau chercher je ne troue pas de réponse...

Sub Couper_sections()
' MacroDB Macro
' Séparation publipostages Word
Application.ScreenUpdating = False
Dim SousDoc As Document
Dim chemin As String
Dim R As Range
Dim x, DocNum

For x = 1 To ActiveDocument.Sections.Count - 1
Set R = ActiveDocument.Sections(x).Range:   R.End = R.End - 1
R.Copy
Documents.Add Template:="W:\RESSOURCES HUMAINES\RH\0-DOSSIERS AGENTS\2024-04-19) Contrats groupés.docx"
Selection.Paste
DocNum = DocNum + 1
chemin = "W:\RESSOURCES HUMAINES\RH\0-DOSSIERS AGENTS\"
With ActiveDocument
.SaveAs FileName:=chemin & DocNum & ".docx"
.Close
End With
Next x

Set SousDoc = Nothing
Set R = Nothing
Application.ScreenUpdating = True
End Sub

Merci par avance à tous de votre aide!