Entre ne travaille pas dans VBA, essayent ceci à la place
Si heure (maintenant ()) >= 1 et heure (maintenant ()) <� 9="" Then="">DoCmd.OpenQuery « qryUpdate1 »
Heure d'ElseIf (maintenant ()) >= 13 et heure (maintenant ()) <� 21="" Then="">DoCmd.OpenQuery « qryUpdate2 »
Finir si