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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Do While Application.CalculationState = 2
    DoEvents
    ActiveSheet.Calculate
    Loop