Salut Koolshen,
Pour ton petit problême, sans ta macro, c'est difficile de répondre, cependant essaye de mettre celà dans ta macro ou de l'adapter au besoin sans oublier de sélectionner le format de ta cellule de destination:
[Range]("A1") = Date
Chez moi çà marche.
Tiens moi au courant et à +,
JB