Insere une date dans un onglet

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 aider moi a la concevoir je vvous remercie d'avance à tous