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