Sub Calendrier()
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.InsertDateTime DateTimeFormat:="dddd d MMMM yyyy", InsertAsField _
:=True, DateLanguage:=wdFrench, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:=False
End Sub