Page journaliere

Bonjour ;

voila j'aimerais savoir si il etait possible de modifier la date de publication en en-tete de la page insere uniquement et ne pas toucher au autre date . et si par hasard par la suite il est possible d'envoyer seulement les page comprenant la date du jours.

je vous transmet ma macro et mon fichier merci beaucoup.

Option Explicit
Sub transmission()
Selection.GoTo What:=wdGoToHeading, Which:=wdGoToFirst
Selection.InsertBreak Type:=wdPageBreak
Selection.GoTo What:=wdGoToHeading, Which:=wdGoToFirst
Selection.Collapse Direction:=wdCollapseEnd
Selection.InsertFile FileName:="C:\Users\BDAss\Desktop\Transmission.dotm"
End Sub
Private Sub Workbook_Open()
lancer_trans
End Sub
Sub lancer_trans()
Application.OnTime TimeValue("07:00:00"), "transmission"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime TimeValue("07:00:00"), "transmission", , False
End Sub
Sub TransmettreLeDocumentEnPdf()
Dim OL As Object, EmailItem As Object
Dim DocEnCours As Document
Dim StrFileName As String

    Application.ScreenUpdating = False

    Set OL = CreateObject("Outlook.Application")
    Set EmailItem = OL.CreateItem(0) '
    Set DocEnCours = ActiveDocument

    StrFileName = Mid(DocEnCours.FullName, 1, Len(DocEnCours.FullName) - 4) & "pdf"
    DocEnCours.ExportAsFixedFormat OutputFileName:=StrFileName, ExportFormat:=wdExportFormatPDF
    With EmailItem
        .Subject = "Transmision Journaliere du " & Format(Date, "dd/mm/yyyy") & " du service des 7/11 ans"
        .Body = "bonjour, Voici les transmision journaliére et automatique" & Format(Date, "dd/mm/yyyy") & " du Service des 7/11 ans"
        .To = "bu700@hotml.com"
        .Attachments.Add StrFileName
        .Send
    End With
  With DocEnCours.Sections(1).Headers(1).Range
         .ContentControls(3).Range.Text = Date
End With
    Application.ScreenUpdating = True

    Set DocEnCours = Nothing
    Set EmailItem = Nothing
    Set OL = Nothing

 End Sub

merci beaucoup