Private Sub CommandButton1_Click()
Dim A As Long, B As Long, i As Long
With Worksheets("Feuil1")
A = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To A
If .Cells(i, 2).Value = "C1" Then
.Cells(i, 1).Resize(, 4).Copy Worksheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4)
End If
Next
End With
Application.CutCopyMode = False
End Sub