Attendre jusqu'à ce que l'Application.Calculer a terminé

suite à mes commentaires, vous pouvez utiliser DoEvents avec le Application.CalculationState. Voir cet exemple

Application.Calculate
If Not Application.CalculationState = xlDone Then
    DoEvents
End If
'~~> Rest of the code.

si vous voulez vous pouvez aussi utiliser un Do While Loop à vérifier Application.CalculationState

je recommande également de voir ce lien

thème: Demande.Calculationpropriété De L'État

Lien: http://msdn.microsoft.com/en-us/library/bb220901%28v=office.12%29.aspx

citation tirée de ce qui précède Lien

renvoie une constante XlCalculationState qui indique l'état de calcul de l'application, pour tous les calculs effectués dans Microsoft Excel. En lecture seule.