Désactivation de l'écran

Bonjour à tous,

J'ai trouvé le code pour désactiver l'écran lors de l'application d'une macros dans le but de ne plus voir se dérouler la macros à l'écran, mais lorsque j'ajoute le code en question (voir le code ci-dessous), un 1 s'ajoute dans une cellule et cela à chaque application de la macros...POURQUOI ?


'Désactivation de la mise à jour de l'écran:
Application.ScreenUpdating = False
Dim Cellule As Object
For Each Cellule In Selection
Ctr = Ctr + 1
Cellule = Ctr
Next


MACROS

'Réactivation de l'écran:
Application.ScreenUpdating = False