XL 2013 Barre de Progression pendant une macro

[gaby66]

Hello les amis, je bataille pour mettre un peu de style pendant l’exécution d'une macro.
J'aimerais afficher une barre de progression pendant son exécution.
J'ai essayer des tas de truc que j'ai pu trouver sur les forums mais je n'arrive pas a la faire fonctionner.

Ma macro actuelle :

Application.OnTime Now + TimeValue("00:00:00"), "IMPRIMER_FAX_AUTO"
Application.OnTime Now + TimeValue("00:00:06"), "AFFICHER_ATE"
Application.OnTime Now + TimeValue("00:00:10"), "MASQUER_ATE_4000481045"
Application.OnTime Now + TimeValue("00:00:15"), "INFO_RECUPERER"
Application.OnTime Now + TimeValue("00:00:24"), "RENOMMER_FEUILLES"
Application.OnTime Now + TimeValue("00:00:30"), "SUPPRIMER_FEUILLES_EN_TROP"
Application.OnTime Now + TimeValue("00:00:35"), "CREATION_NEW_FICHIER"

La macro va durer 35 secondes avant de se finir.
J'aimerais afficher une barre de progression en pourcentage durant cette macro.
Merci pour votre aide.