Bonjour
Ce code dans ThisWorkBook te donne la date et l'heure du dernier enregistrement et le nom de l'User
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, si tu veux toutes les dates en colonne A
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Feuil1").Activate
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = "Dernière sauvergarde le " & Format(Now, "DD/MM/YY HH:MM:SS") & " par " & Application.UserName
End Sub
Cordialement