Execution VB sous EXCEL 2007

Bonjour,

J'utilise, dans un fichier excel (2007), les fonctions suivantes :

Lors de la fermeture du fichier,
Si il y a eu des modifications du fichier alors "Dernier enregistrement le date du jour"
Si Pas de modification du fichier alors "Dernière consultation le date du jour"

Ce qui donne, dans ThisWorkbook

Dim modif As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Page1").Range("C6").Value = Format(Date, "dd-mmmm-yy")
Sheets("Page1").Range("E6").Value = Format(Time, "h:m")
Sheets("Page1").Range("C7").Value = Format(Date, "dd-mmmm-yy")
Sheets("Page1").Range("E7").Value = Format(Time, "h:m")
End If
If modif = False Then
Sheets("Page1").Range("C7").Value = Format(Date, "dd-mmmm-yy")
Sheets("Page1").Range("E7").Value = Format(Time, "h:m")
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub

Sous Windows XP, le résultat était plutôt satisfaisant par rapport à l'utilisation que j'avais de mon fichier.

Mon problème :

Je me suis trouvé contrains et forcé d'installer Windows Vista sur mon PC, et depuis, mon petit bout de programme ne fonctionne plus et j'en ne comprends pas les raisons.

Si l'un de vous peux m'éclairer sur ce problème et me mettre sur la voie pour le résoudre... D'avance Merci