Boucle while syntaxe

Salut,

vous auriez une idée de pourquoi est ce que cette boucle ne fonctionne pas ?

    i = 3
    While i > 0
    If IsNumeric(Left(w.Sheets("feuil1").Cells(8, 1).Value, i)) = False Then
        i = i - 1
        Else
        w.Sheets(wst).Cells(lignL, 3) = Left(w.Sheets("feuil1").Cells(8, 1).Value, i)
        i = 3
    End If
    Wend

Edit: RESOLU ! le nom de feuil1 avait changé