date et date+heure
Feuil1.Range("AA1").Value = Date
Feuil1.Range("AA2").Value = Now
'éventuellement le numberformat
Feuil1.Range("AA1").NumberFormat = "ddd dd/mm/yy"
Feuil1.Range("AA2").NumberFormat = "dd/mm hh:mm"
après l'exécution de ta macro, tu écrases la cellule voulue avec la valeur fixe d'aujourd'hui avec le code ici dessus.