Dim modif As Boolean
Private Sub Workbook_Open()
modif = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets('Base').Range('A1').Value = 'Dernière modif le ' & Format(Date, 'dd/mm/yyyy') & ' ' & Format(Time, 'hh:mm')
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub