Excel 2007 Macro BeforeSave Nonfonctionnelle

Bonjour,

J'ai écrit cela dans mon Workbook, mais le code ne marche pas :
Private Sub Workbook_BeforeSave(ByVal saveasUI As Boolean, Cancel As Boolean)

'permet de détecter s'il est fait appel à laméthode "Enregistrer sous"

Application.EnableEvents = False
Range("F6").Value = "Macro Non fonctionnelles"
Range("F6").Font.ColorIndex = 1
Range("F6").Select
Selection.Interior.Color = RGB(250, 0, 0)
Application.EnableEvents = True

End Sub

Quelqu'un a une idée ?

Je vous remercie.