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