Status Bar Temps Ecoule

Bonjour le forum

Je voudrais afficher dans ce code aussi le temps ecoule, jusqu'a la fin

Ce que j'ai aficher seulement le cellules qui sont travaille

Voial une partie de mon code

Private Sub ValiderBouton_Click() >>>> debut macros
lmax = LaF1.UsedRange.Rows.Count ' pour compter le nombre de celulles

'mon code d'execution

'fin de macros pour les incrementation
Nextl:
Application.StatusBar = l & " on " & lmax >>>compteur cellules


Next l


Application.StatusBar = False
Application.DisplayStatusBar = oldstatusbar:

Voila et je voudrais aussi afficher le temps qu'il me reste jusqu'a ala fin aussi