Bonsoir Vincent, bonsoir le forum,
Tu dois certainement pouvoir t'en sortir avec une procédure événementielle de ThisWorkbook :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(NomDeTaFeuille).Range(TaCellule).Value = Now
End Sub
J'espère que cette solution te conviendra...
Amicalement
Charly