Prévoir heure de fin d’exécution macro

Bonjour le forum

J'aimerais savoir s'il est possible d'indiquer l'heure à laquelle une macro va se terminer (de manière plus ou moins approximative)

J'avais dans l'idée :

• Au lancement de la boucle For récupérer l'heure
• A la fin de la première boucle For récupérer l'heure
• Faire la soustraction des deux, ajouter cette valeur à une variable divisé par la valeur du i de la boucle (le but étant d'obtenir une moyenne du temps d’exécution de la boucle et de la recalculer à chaque fois).
• Multiplier cette moyenne par le nombre de boucle restante et l'ajouter à l'heure actuelle (ce qui devrait donner l'heure à laquelle l’exécution va se terminée)
• Afficher le résultat dans le Caption du Userform d'où est lancé la macro

Je m'excuse par avance mais je n'ai pas de fichier à proposer

Par avance, merci de l’intérêt porté au sujet

Je me répond moi même si quelqu'un passe sur ce sujet :

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