Option Explicit
Sub test()
Dim i As Long
With Sheets("Feuil1")
For i = .Range("B65536").End(xlUp).Row To 1 Step -1
If .Cells(i, 1).Value = 1 Then
.Cells(i, 2).Resize(1, 3).Copy
Sheets("Feuil2").Range("A65536").End(xlUp)(2).PasteSpecial xlPasteValues
.Rows(i).Delete
End If
Next i
End With
End Sub