Doevents et Calculate

Bonjour à tous

Voilà je persiste et signe dans ma recherche de gérer l'état d'avancement du calcul sur ordre de la barre d'état. Dans ce cadre j'utilise l'état du calcule sur ordre...

Code:

---

1 2	Application.CalculationState

---

...qui prend la valeur 0,1 ou deux selon l'état, au passage je voudrais signalé et posé la question de savoir si qq a déjà vu l'état sur "1" c'est à dire en train de calculer...? moi non.

Et donc en fonction de la position "2" demande de calcul je libere le code avec DoEvents et déclare...

Code:

---

1 2	ActiveSheet.Calculate

---

Mais une fois terminé l'état reviens perpetuellement à l'état "2" alors qu'en passant pas la touche "F9" l'état reviens bien à "0" aucun calcule.

Ma questions est donc simple...pourquoi?

Le tronçon de code en entier...

Code:

---

1 2 3 4 5

Do While Application.CalculationState = 2 DoEvents ActiveSheet.Calculate Loop

---