En ajouttant juste une ligne au début du code de ton bouton "Ajouter Document"
Code:
Sheets("Liste de documents").Range("H3") = Date
la date automatique placée est la date du jour..
Par contre, il vaudrait mieux choisir une autre case que H3: car tu as fusionné toute la colonne..
C1 par exemple en format date courte.. au moins. ce sera visible à l'écran