ERREUR d'execution 9 l'indice n'appartient pas à la selection

Bonjour,

Voilà ça fait 2 jours que je suis bloqué face à une erreur en VBA sous excel que je vois pas. Je cherche à déterminer une valeur de lambda qui est juste le nom de la valeur à partir de donné dans mon tableau excel. Le i est le numero de ligne. J'ai l'erreur 9 sur le premier lambda1(i) le i est mis a 3 donc normalement c bon mais je pige pas. J'ai appliquer le mm genre de relation sans de "do while until" qui fonctionne tous correctement je sais pas où est le problème. Merci d'avance



Dim lambda1() As Single
Dim lambda2() As Single

'détermination du lambda
For i = 3 To 7

lambda1(i) = 0.025

Do

lambda2(i) = (Abs(2 * (Log((Cells(i, 1) / (3.7 * Cells(i, 4) / 1000)) + (2.52 / (Cells(i, 8) * (lambda1(i) ^ 0.5)))) / Log(10#)))) ^ -2
lambda1(i) = lambda2(i)

Loop Until Abs(lambda1(i) - lambda2(i)) < 10 ^ -8

Next i


For i = 3 To 7
Cells(i, 8) = lambda2(i)
Next i