Option Explicit
Sub test()
Dim i As Long, j As Long, x As Long
x = 2
Application.ScreenUpdating = False
Sheets("Feuil2").Range("A2:D65536") = ""
With Sheets("Feuil1")
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 3) = "" Then Exit Sub
If .Cells(i, 3) = 15 Then
For j = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
j = x
.Range(.Cells(i, 1), .Cells(i, 4)).Copy Sheets("Feuil2").Cells(j, 1)
x = x + 1
Exit For
Next j
End If
Next i
End With
End Sub