With Wrd
.Selection.typetext Text:="Réponses au questionnaire salariés"
.Selection.Style = Wrd.ActiveDocument.Styles("Titre")
.Selection.typeparagraph
WordBasic.ViewFooterOnly
.ActiveDocument.AttachedTemplate.BuildingBlockEntries("12").Insert Selection.Range
.Selection.InsertBreak Type:=wdSectionBreakNextPage
End With