Bonjour Fly....
Un début d'idée
Exemple puisé chez Micr0soft, la méthode OnTime est très pratique
Cet exemple montre comment exécuter my_Procedure immédiatement.
Application.OnTime Now, "my_Procedure"
Cet exemple montre comment exécuter my_Procedure dans 15 secondes.
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
Cet exemple montre comment exécuter my_Procedure à 17 heures.
Application.OnTime TimeValue("17:00:00"), "my_Procedure"
Cet exemple montre comment annuler le paramétrage de OnTime de l'exemple précédent.
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:=False
Bruno