Prédire le temps d’exécution d'une macro

Bonjour le forum

J'ai un code qui met un certain temps à se réaliser. Tout le code fonctionne dans une boucle for. J'aimerais indiquer dans le caption du userform d'où est lancé la macro le temps qu'il reste avant la fin.

J'avais écrit le code ci-dessous mais ça ne marche pas vraiment...

Merci de l'aide

For x = 2 To MaxA
Time1 = Time

'Exécution du programme

Time2 = Time

TimeTT = Time2 - Time1
TimeMoy = (TimeMoy + TimeTT) / (x - 1)
TimeReste = TimeMoy * (MaxA - (x - 1))
TimeFin = Time + TimeReste

Me.caption = "Fin prévue à : " & TimeFin

Next x

Ce que j'essaye de faire est de calculer la moyenne que prend le programme pour compléter une boucle, multiplier ce temps moyen par le nombre de boucle restante et l'ajouter à l'heure de départ pour obtenir une heure de fin d’exécution du programme

bonjour,

essaie ainsi

    t = Timer
    For x = 1 To maxa
        'traitement
        etac = ((Timer - t) / x) * (maxa - x) 'temps restant en secondes
        Me.Caption = "Fin prévue à : " & Now + etac / (24 * 60 * 60#)
    Next x

Merci h2so4 !

Cette solution me va parfaitement