Bonjour tout le monde,

J'ai un besoin d'aide assez urgent. J'ai un gros souci dans mon document WORD.
J'explique le sujet.

A partir d'un fichier texte, je dois créer dans un document WORD un organigramme sur plusieurs pages.
J'arrive bien à créer mes textbox sur ma première page.
J'arrive à créer les n pages dont j'ai besoin.

Par contre, je n'arrive pas à passer d'une page à une auter pour faire les couches successives de mon diagramme.

Voici mon code :

' mise en page de la première page du document
With ActiveDocument.PageSetup
    .LeftMargin = InchesToPoints(0.5)
    .RightMargin = InchesToPoints(0.5)
    .TopMargin = InchesToPoints(0.5)
   .BottomMargin = InchesToPoints(0.5)
    .Orientation = wdOrientLandscape
    PaperSize = wdPaperA3
End With
Li_TopMax = 800: Li_LeftMax = 570

' Affichage de la 1e partie de l'organigramme
Li_Shape = Li_Shape + 1: Li_top = 385: Li_left = Li_left + 0
ActiveDocument.Shapes.AddTextbox msoTextOrientationHorizontal, Li_top, Li_left, 36, 20
With ActiveDocument.Shapes(Li_Shape).TextFrame
    .TextRange = tSiege.matricule.poste
    .Orientation = msoTextOrientationHorizontal
    .TextRange.Font.Size = 8
End With

' SAUT DE PAGE
With ActiveDocument.Range
    .Collapse Direction:=wdCollapseEnd
    .InsertBreak wdPageBreak
End With

Li_Shape = 0
' Affichage de chaque direction
Li_Shape = Li_Shape + 1: Li_top = 585: Li_left = Li_left + 40
ActiveDocument.Shapes.AddTextbox msoTextOrientationHorizontal, Li_top, Li_left, 36, 20
With ActiveDocument.Shapes(Li_Shape).TextFrame
    .TextRange = tDir(1).matricule.poste
    .Orientation = msoTextOrientationHorizontal
    .TextRange.Font.Size = 8
End With

' Saut de page
With ActiveDocument.Range
    .Collapse Direction:=wdCollapseEnd
    .InsertBreak wdPageBreak
End With

Est-ce que quelqu'un aurait une idée ou pourrait me dire ce que j'aurai oublier, SVP ?
Merci par avance.