Afficher la date de modification d'un classeur

Je voudrais afficher dans un classeur la date de la dernière modification effectuée dans un classeur mais que la simple ouverture/fermeture de celui-ci ne modifie pas cette information.

A mettre dans le module thisworkbook:

 Dim modif As Boolean  
Private sub Workbook_Open()
modif = False
end sub

Private sub
Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then

Sheets("trucchouette").Range("D1").Value = "Dernière modif le " & Format(Date, _
"dd/mm/yyyy") & " " & Format(Time, "hh:mm") 'c'est là que la date de modif s'affiche
End If
end sub
Private sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
end sub

Ce mois-ci sur Excelabo

- Pas de nouvelle page.
- 3 pages modifiées.