Bonjour
1) Copie le code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Feuil1").Range("A1") = Date + Time
End Sub
2) Depuis ton fichier, appuie sur Alt+F11
3) Dans la fenêtre propriété, double clique sur le ThisWorkbook de ton fichier
4) Dans la nouvelle fenêtre "Nom du classeur -ThisWorkbook (Code), colle le code précédemment copier.
5) Change le nom de la feuille et la référence de la cellule
6) Retourne sur Excel
@+Jean-Marie