Bonjour le forum
Bonjour php28
Essaie avec ce code à placer dans ThisWorkBook :
Private Sub workbook_beforesave(ByVal saveasui As Boolean, cancel As Boolean)
ActiveWorkbook.ActiveSheet.Range("A1").Value = Now()
Ce n'est pas une formule mais c'est mieux que rien