While imbriquée

Bonjour, j'ai un soucis avec deux while, la ligne surligne en bleu me met, error 1004, et je n'arrive pas a trouver la solution. Merci d'avance.

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim l As Integer

i = 2

j = 2

k = 5

While Sheets("Sheet1").Cells(2, k) <> ""

While Sheets("Sheet1").Cells(i, 1) <> "" And Sheets("Sheet1").Cells(i, 2) <> ""

If Sheets("Sheet1").Cells(i, 2) Like "*/800*" And Sheets("Sheet1").Cells(i, k) <> 0 Then

Sheets("Sheet2").Cells(j, 1) = Sheets("Sheet1").Cells(i, 1)

Sheets("Sheet2").Cells(j, 2) = Sheets("Sheet1").Cells(i, 2)

Sheets("Sheet2").Cells(j, 3) = Sheets("Sheet1").Cells(i, k)

Sheets("Sheet2").Cells(j, 4) = Sheets("Sheet1").Cells(1, k)

i = i + 1

j = j + 1

Else

i = i + 1

End If

Wend

i = 2

k = k + 1

Wend