Excel/vba calcul automatique/manuel

Bonjour,

J'ai un classeur excel – le classeur X – que je mets en mode de calcul manuel à son ouverture.
Lors de certaines manips sur les feuilles, je fais ActiveSheet.Calculate
Je ne veux jamais que le classeur soit recalculée en entier (il n'y a pas besoin).

Par contre, quand je change de classeur, lorsque que le classeur X est ouvert, ou quand j'ouvre un nouveau classeur alors que je viens de fermer le classeur X, je veux que dans ces autres classeurs soient en mode de calcul automatique. Pour cela, je fais :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CalculateBeforeSave = False
Application.Calculation = xlCalculationAutomatic
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.Calculation = xlCalculationAutomatic
End Sub

Le problème c'est que cela me recalcule à chaque fois le classeur X. Pas seulement, je n'ai pas besoin que le classeur soit recalculée car je contrôle toutes les répercussions des modifs à la main, comme en plus cela prend qlqs minutes dû à la lourdeur du classeur X.

Quelqu'un pourrait m'aider ?

Merci