Exécution toutes les 24 heures

Bonjour à tous,

Le code ci-dessous me permet d'exécuter du code à une certaine heure. L'heure de départ est enregistrée dans la cellule "K2"

Sub calculX(intervalSeconde As Integer)

' On va rechercher l'heure de départ qui se trouve dans la cellule B2
startTime = Application.Worksheets(1).Range("k2").Value

' On lance le calcul du X de la 1° caisse
Application.OnTime TimeValue(startTime), "XCAISSE1"

' On lance le calcul du X pour la 2° caisse 10 secondes plus tard
Application.OnTime TimeValue(startTime) + TimeSerial(0, 0, intervalSeconde), "XCAISSE2"

' On lance le calcul du X pour la 3° caisse 20 secondes plus tard
Application.OnTime TimeValue(startTime) + TimeSerial(0, 0, intervalSeconde * 2), "XCAISSE3"

' On lance le calcul du X pour la 4° caisse 10 secondes plus tard
Application.OnTime TimeValue(startTime) + TimeSerial(0, 0, intervalSeconde), "XCAISSE4"

' On lance le calcul du X pour la 5° caisse 20 secondes plus tard
Application.OnTime TimeValue(startTime) + TimeSerial(0, 0, intervalSeconde * 2), "XCAISSE5"

End Sub

Maintenant, j'aimerai bien exécuter cette macro toutes les jours à l'heure indiquée dans la cellule "K2".

Est-ce réalisable ou bien dois-je trouver un autre moyen ?

Merci d'avance pour votre aide,
Christophe