date dernier enregistrement

Bonjour,

Je souhaite ajouter, sur une feuille, la date du dernier enregistrement d’un tableau Excel.

Pour cela, ci-dessous la procédure que j’ai fait :

• ALT F11
• ThisWorkbook
• Workbook
• Sélection de « Before Save »
• Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Feuil1").Range("A1").Value = "Dernière sauvergarde le " & Format(Now, "DD/MM/YY HH:MM:SS") & " par " & Application.UserName
End Sub

Et après comment faire ???

Merci de votre aide

Damien