Intégrer =Aujourdhui dans une cellule en utilisant un bouton

Bonjour !

Je cherche à avoir un bouton qui, entre autres, donnera à une cellule la formule "=Aujourd'hui()".

J'ai essayé ces deux méthodes :

sub 
Sheets.("Feuille A") .Range("A1").Formula = "=Aujourdhui()" 
end sub 

sub 
Sheets.("Feuille A").Range("A1").Value = "=Aujourdhui()"
end sub

Mais à chaque fois, Excel donne la valeur "=@Aujourdhui" dans la cellule, ce qui fait apparaître #NOM? à la place de la date.

Comment résoudre ce problème ?
Merci d'avance !

Eldervand

Bonjour

Essaie ça :

sub 
Sheets.("Feuille A") .Range("A1").Formula = "=TODAY()" 
end sub 

Bye !

Ahaa ! Tout s'explique !
Merci beaucoup pour ton aide !