Bonjour
Un essai
Dans le module Thisworkbook
Private Sub Workbook_Open()
Application.OnTime TimeValue("18:00:00"), "Bonne_Fête"
End Sub
Et dans un module standard
Sub Bonne_Fête()
If Date = #12/24/2012# Then
' ma macro
Else
Application.OnTime TimeValue("18:00:00"), "Bonne_Fête"
End If
End Sub