Dim i, j As Integer
For i = 4 To Range("B4").End(xlDown).Row
'Test d'égalité d'OF
If Range("B" & i) = Range("B" & i + 1) Then
'Test des cas conf
If Range("N" & i) = "CONF IMPR LANC" Then
'MsgBox "la ligne " & i & " est confirmée"
'Test des cas non-conf
If Range("N" & i + 1) = "IMPR LANC" Then
'MsgBox "la ligne " & i + 1 & " est non-confirmée"
j = 1
'Boucle de copie des cas non-conf
While Range("N" & i + j) <> "CONF IMPR LANC" And Range("N" & i + j) <> ""
j = j + 1
MsgBox "la ligne " & i + j - 1 & " est non-Confirmée"
'Copie des cas non-conf dans la feuille 2
Sheets("Feuil1").Range("B" & i + j - 1).Copy Sheets("Feuil2").Cells(Rows.Count, 2).End(xlUp)(2)
Sheets("Feuil1").Range("C" & i + j - 1).Copy Sheets("Feuil2").Cells(Rows.Count, 3).End(xlUp)(2)
Sheets("Feuil1").Range("D" & i + j - 1).Copy Sheets("Feuil2").Cells(Rows.Count, 4).End(xlUp)(2)
Sheets("Feuil1").Range("N" & i + j - 1).Copy Sheets("Feuil2").Cells(Rows.Count, 5).End(xlUp)(2)
Wend
End If
End If
End If
Next i