Il faudrait qu'à la fin du document, l'utilisateur lance la macro. Elle pourrait ressembler à ça :

 

Sub Changemarges()
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext,Name:="2"
ActiveDocument.Range(Start:=Selection.Start,End:=Selection.Start). InsertBreak Type:=wdSectionBreakNextPage
Selection.Start = Selection.Start + 1
With ActiveDocument.Range(Start:=Selection.Start, _
End:=ActiveDocument.Content.End).PageSetup
.TopMargin = CentimetersToPoints(3)
.BottomMargin = CentimetersToPoints(3)
.LeftMargin = CentimetersToPoints(4)
.RightMargin = CentimetersToPoints(4)
End With
End Sub