afficher la date du jour dans un onglet d'une feuille

Bonjour à tous

Voila j'ai un petit probléme J'essaye de programmer une Macro en VBA pour que la date du jour aparaise dans l'onglet a chaque fois ke je créer une nouvelle feuille.
Voila ma Macro en VBA

Sub page2()
'
' page2 Macro
'
' Touche de raccourci du clavier: Ctrl+g
'
If intMois = 13 Then
intMois = 1
intAnnee = intAnnee + 1
End If
ActiveSheet.Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = Format(Date, "dd-mm-yyyy")
ActiveSheet.Paste ' Collage de la feuille copiée précédemment
ActiveSheet.Select
ActiveSheet.Name = JourDate ' Attribution du nom de la nouvelle feuille
End Sub
Enfaite je voudrais que cette macro me permette a chaque fois que je créee une nouvelle feuille me permette d'afficher la date.

j'ai des probleme avec cette macro ne connaissant rien au VBA quelqu'un peut m'aider merci

Ps: quelqu'un peut m'aider a la concevoir merci beaucoup