Sub dégage_ligne()
i = 2
With Feuil1
While .Cells(i, 1) <> ""
If .Cells(i, 8) <> "" Xor .Cells(i, 9) <> "" Then
.Rows(i).Cut Feuil3.Cells(Rows.Count, 1).End(xlUp)(2)
End If
i = i + 1
Wend
.Columns(1).Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=(xlUp)
End With
End Sub