Consigne journaliere

Bonjour,

Voila j'aimerais crée un fichier de consigne quotidienne , ou tous les jours Word créé automatiquement une nouvelle page avec la nouvel date et en reprenant le format prédéfini cf fichier , l'idee c'est d'avoir toutes les transmission en un seul fichier et que chaque jour une nouvelle page ce rajoute en haut du document .

De plus il me faudrais une options pour imprimer uniquement la page avec la date du jour et une avec n'importe qu'elle date. J'avais trouver sur excel mais c'est pas le plus simple pour le traitement de texte ^^".

Pour excel j'avais cela :

Sub Jour()
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(Date, "dd mmm yyyy")
Range("A1") = Format(Date, "mm/dd/yyyy")
Range("B2:F35").Clear
End Sub

Autant sur excel c'est plutot simple avec les onglets autant la ^^" je suis perdu ^^

merci d'avance