Dim modif As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Feuil1").Range("A1").Value = "TDB ICSM " & Format(Date, "dd mm yy")
Sheets("Feuil2").Range("A1").Value = "TDB ICSM : " & Format(Date, "dd mm yy")
Sheets("Feuil3").Range("A1").Value = "TDB ICSM : " & Format(Date, "dd mm yy")
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub