Salut Chris et Gérard,
Pour ne pas s'encombrer la mémoire avec de multiples formules magiques et autres constantes :
Outils/Macros/Nouvelle Macro
Outils/Options/Calcul
Aperçu de la réponse dans Module1 :
Application.Calculation = xlManual
Application.Calculation = xlAutomatic
Cela dit, la suggestion de Gérard de mémoriser le mode de calcul en cours pour le restituer en fin de procédure est excellente.
A+
LN