Erreur de code

Bonjour,
Dans le code VBA suivant:
For i = 1 To 20
    If ActiveCell.Value = 0 Then Exit For
Next
je veux arrêter la boucle dès que le contenu de la cellule active n'est pas un nombre entier. Or, ici ça ne fonctionne pas: si la cellule contient du texte, elle continue! Elle ne s'arrête que sur une cellule vide ...
Comment corriger ? 

Windows / Chrome 123.0.0.0