[myDearFriend!]

Bonsoir chuinul,

En faisant une recherche, tu trouveras quantité de réponses à ce sujet...

Tu peux essayer comme ça par exemple :

DANS UN MODULE DE CODE STANDARD

Option Explicit
Dim Tps As Date
 
Sub Tempo()
    'Programmation de l'évènement toutes les heures
    Tps = Now + TimeValue("01:00:00")
    Application.OnTime Tps, "Tempo"
    'Traitement
    'Les instructions de TA MACRO ICI...
    '...
    '...
End Sub
 
Sub StopTempo()
    On Error Resume Next
    'Stopper la gestion de l'évènement OnTime en cours
    Application.OnTime Tps, "Tempo", , False
End Sub

Et sans oublier, dans le module de code de l'objet ThisWorkbook :

DANS LE MODULE DE CODE DE L'OBJET THISWORKBOOK

Option Explicit
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    StopTempo
End Sub

Quelques explications supplémentaires sur le sujet : La méthode OnTime

Cordialement,