XL 2016 VBA 6 Erreur à l'ouverture du classeur

[danielco]

Bonjour,

Depuis toujours, j'ai parfois une erreur erreur à l'ouverture d'un classeur. Dans celui-ci, le code :

Private Sub Workbook_Open()
  If Time < TimeValue("9:30:00") Then
    Application.OnTime TimeValue("9:30:00"), "Message"
  ElseIf Time < TimeValue("13:30:00") Then
    Application.OnTime TimeValue("13:30:00"), "Message1"
  ElseIf Time < TimeValue("17:30:00") Then
    Application.OnTime TimeValue("17:30:00"), "Message2"
  ElseIf Time < TimeValue("21:30:00") Then
    Application.OnTime TimeValue("21:30:00"), "Message3"
  End If
End Sub

plante systématiquement quand le classeur est ouvert automatiquement au démarrage d'Excel. Ensuite, il s'exécute normalement quand le classeur est rouvert.

Erreur 1004, La méthode 'OnTime' de l'objet '_Application' a échoué.

Savez-vous quoi faire pour éviter cette erreur ?

Merci d'avance.

Daniel