Filtrer sur un terme tout en gardant les N lignes du dessus

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim DerniereLigne As Long
    Set FL1 = Worksheets("Feuil1") 'a adpater nom de la Feuille
    NoCol = 1 'lecture de la colonne A
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
  If Var = "arbre" Then 'a adapter le nom recherché
   Range("A" & NoLig - 3 & ":A" & NoLig).Copy
    Range("B" & NoLig - 3).Select
    ActiveSheet.Paste
  End If
    Next
    DerniereLigne = Range("B" & Rows.Count).End(xlUp).Row
    Range("B1:B" & DerniereLigne).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'supprime les lignes vides
  End Sub