Erreur: Dépassement de capacité

Bonjour,

Je débute actuellement en VBA Excel et j'ai un problème dans l'exécution de ma macro.

Voici le code:

     Dim eff As Integer

     Dim c As Integer

     Dim j As Long

     Dim ma_var As Integer

        eff = 1

        c = 2

'Je calcule le nombre de lignes non vide de mon fichier Excel, ce qui va me permettre de définir la dernière ligne de mon tableau.    

        Do While Cells(c, 1) <> ""

            eff = eff + 1

            c = c + 1

        Loop

    'Je cherche à caclculer un pourcentage de la ligne 2 à ma ligne eff.

    For j = 2 To eff

    Cells(j, 7) = Cells(j, 6) / Cells(j, 5)

    Next j

Cependant, quand la fin de ma boucle est supérieur à 100, j'ai un message d'erreur: Dépassement de capacité.

J'ai essayé de changer les types de mes varaibles, mais cela ne donne rien.

Je sais que la question a été plusieurs fois posée mais je n'ai pas trouvé de réponse qui puisse être adapté à mon problème.

Merci d'avance pour votre aide.