Problème VBA

Bonjour, le titre n'est pas très explicite donc voici mon code :

Sub Fonction()

Dim A As Single

Dim i As Long

i = 1

While i < 1000000

A = Sqr(Sqr(11 ^ 4 + i * 240))

If A - Fix(A) = 0 Then

Cells(i, 5).Value = A

End If

i = i + 1

Wend

End Sub

Le problème que j'ai est que lorsque je lance la macro, rien ne se passe.

Le but de cette macro est de m'afficher à la suite dans la colonne E, seulement les nombres entiers issus du calcul de A.

Je pense que le problème si situe autour de la ligne "A = Sqr(Sqr(11 ^ 4 + i * 240))", car lorsque je supprime la partie i*240, j'obtiens 11 de partout, ce qui signifie que la macro fonctionne. De même, lorsque je remplace le "i" par 58 (pour que A me donne un nombre entier) cela fonctionne aussi.

Si ce n'est pas clair je m'en excuse.

Merci d'avance pour votre aide.

Bonjour,

Le but de cette macro est de m'afficher à la suite dans la colonne E

La ligne d'inscription étant définie par i, impossible que ce soit à la suite !

Pour l'inscription : autre variable incrémentée de 1 chaque fois que la condition est réunie.

Cordialement.

Effectivement, merci beaucoup !