Salut Didier2, et le forum,
A l'aide d'une varaible tu peux tester les changements, dans ThisWorkbook
[g]Dim CHGMT As Boolean[/g] 'déclaration hors sub pour tous
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If CHGMT Then ActiveWorkbook.Save
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
CHGMT = True
End Sub
ATTENTION cela fonctionne qu'en cas de changement des cellules dans une feuille et non pas en cas de changement relatif à la feuille (nom, ajout, suppression)
Sinon il faudra CHGMT = True sur les évènements concernés
Bon app'
Valérie