Sub Bazinga()
Dim P As Range, c As Range, Rng As Range, f As Worksheet, ff As Worksheet
Set f = ActiveSheet: Set ff = Sheets("Feuil2")
Set P = f.Range(f.Cells(1, "F"), f.Cells(Rows.Count, "F").End(3))
For Each c In P
Set Rng = f.Cells(c.Row, "A").Resize(, 5)
Select Case c
Case Is = "reste"
ff.Cells(Rows.Count, "A").End(3)(2).Resize(, 5) = Rng.Value
Case Is = "à sortir"
ff.Cells(Rows.Count, "G").End(3)(2).Resize(, 5) = Rng.Value
End Select
Set Rng = Nothing
Next c
ff.Rows(1).Delete
End Sub