Ça peut s'appliquer pour plein de situations. Si tu voulais copier les lignes de la Feuil1 contenant 1 en A vers la feuil2 en commençant par la 2e ligne, tu pourrais utiliser ce code par exemple (qui peut sans doute être corrigé) :
Option Explicit
Public Sub copier()
Dim i, compteur As Integer
compteur = 2
For i = 2 To Sheets("Feuil1").Range("A2").End(xlDown).Row
If Sheets("Feuil1").Cells(i, 1) = 1 Then
Sheets("Feuil1").Rows(i).Copy
Sheets("Feuil2").Paste Destination:=Sheets("Feuil2").Cells(compteur, 1)
compteur = compteur + 1
End If
Next i
End Sub