Couper/coller d'un tableau à un autre via une valeur

Sub Sup_Lig()
'Feuil1 et Feuil3 sont les CodeNames des feuilles
Dim i As Long, P As Range
Application.ScreenUpdating = False
Feuil1.Unprotect 'est-ce bien nécessaire ?
With Feuil1.ListObjects(1).Range
  For i = .Rows.Count To 2 Step -1
    If .Cells(i, 3) = "F" Then
      Set P = .Rows(i)
      With Feuil3.ListObjects(1).Range
        .Rows(.Rows.Count + 1) = P.Value 'copie les valeurs
      End With
      P.Delete
    End If
  Next
End With
Feuil1.Protect 'est-ce bien nécessaire ?
Feuil3.Activate 'facultatif
End Sub

Sub Sup_Lig()
'Feuil1 et Feuil3 sont les CodeNames des feuilles
Dim lig As Long, i As Long, P As Range
Application.ScreenUpdating = False
Feuil1.Unprotect 'est-ce bien nécessaire ?
lig = Feuil3.ListObjects(1).Range.Rows.Count + 1 'mémorisation
With Feuil1.ListObjects(1).Range
  For i = .Rows.Count To 2 Step -1
    If .Cells(i, 3) = "F" Then
      Set P = .Rows(i)
      With Feuil3.ListObjects(1).Range
        .Rows(lig).Insert 'insertion de ligne
        .Rows(lig) = P.Value 'copie les valeurs
      End With
      P.Delete
    End If
  Next
End With
Feuil1.Protect 'est-ce bien nécessaire ?
Feuil3.Activate 'facultatif
End Sub

Sub Sup_Lig()
'Feuil1 et Feuil3 sont les CodeNames des feuilles
Dim i As Long, P As Range
Application.ScreenUpdating = False
Feuil1.Unprotect 'est-ce bien nécessaire ?
With Feuil1.ListObjects(1).Range
  For i = .Rows.Count To 2 Step -1
    If .Cells(i, 3) = "F" Then
      Set P = .Rows(i)
      With Feuil3.ListObjects(1).Range
        .Rows(.Rows.Count + 1) = P.Value 'copie les valeurs
      End With
      P.Delete
    End If
  Next
End With
Feuil1.Protect 'est-ce bien nécessaire ?
With Feuil3.ListObjects(1).Range
  .Sort .Columns(2), xlAscending, Header:=xlYes 'tri croissant sur les dates
End With
Feuil3.Activate 'facultatif
End Sub