Bonjour Kamalo,
Je ne comprends rien à votre code car il parle de feuille et de ListObject qui n'existent pas
Certainement une copie très mal faite
Mais le code est simple pour la date
Range("A" & DernièreLigne).Value = Format(Date, "mm/dd/yyyy")
Ou "DernièreLigne" est une variable de type Long, qui représente la dernière ligne saisie, à vous de la mettre en place (ou pas)
@+