Copier Ligne Entiere Si Condition

Sub Test()
Dim cell As Range
Sheets("Feuil1").Select
Application.ScreenUpdating = False
For Each cell In Sheets("Feuil1").Range("E7:E" & Sheets("Feuil1").Range("E65536").End(xlUp).Row)
If cell.Value = "JP" Then
cell.EntireRow.Copy Destination:=Sheets("Feuil2").Cells(Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1, 1)
End If
Next
Application.ScreenUpdating = True
End Sub

Sub Test()
Dim cell As Range
Sheets("Feuil1").Select
Application.ScreenUpdating = False
For Each cell In Sheets("Feuil1").Range("E7:E" & Sheets("Feuil1").Range("E65536").End(xlUp).Row)
     If cell.Value = "JP" Then
          cell.EntireRow.Copy [COLOR="Red"]destination:=[/COLOR]Sheets("Feuil2").Rows(NoLigne)
     End If
Next
Application.ScreenUpdating = True
End Sub

Sub Test()
Dim Cel As Range
Application.ScreenUpdating = False
With Sheets("Feuil1")
     For Each cell In .Range(.[E7], .[E65536].End(xlUp))
          If Cel = "JP" Then .rows(cel.row).Copy Sheets("Feuil2").rows(Sheets("Feuil2").[E65536].end(xlup).row+1)
     Next
Application.ScreenUpdating = True
End Sub