Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
With Sheets("Enregistrements") ' A modifier suivant besoins
DL = 1 + .Range("A65500").End(xlUp).Row
.Cells(DL, "A") = Now
ActiveWorkbook.Save
End With
End Sub