Erreur 1004 sur cells(i, x)

Bonjour, je viens vers vous car j'ai l'erreur 1004 "Erreur définie par l'application ou l'objet" sur la formule cells(i, x) et je n'arrive pas à m'en débarrasser. Merci d'avance pour votre aide et voici mon code :

Sub Ultime()

Do
If Worksheets("Produits").Cells(i,6) = 15 Then
Worksheets("Feuil1").Range("A2").Value = Worksheets("Produits").Cells(i, 1).Value
End If
i=i+1

Loop While Cells(i, 1) <> ""
End Sub

Bonjour,

Quelle est la valeur de i au départ?

solution avec i =2 au départ:

Sub Ultime()
    i = 2
    Do
        If Worksheets("Produits").Cells(i, 6) = 15 Then Worksheets("Feuil1").Range("A2").Value = Worksheets("Produits").Cells(i, 1).Value
        i = i + 1
    Loop While Cells(i, 1) <> ""
End Sub

Cdlt

Bonjour,

Merci beaucoup, le problème venait bel et bien du fait que j'ai oublié de donner une valeur à i, un peu une honte après 3 ans de codage en C/C++.