suppression de lignes pleines avec excel Vba

Sub test2()
Const st As String = "N° DE FICHE DE SORTIE"
Dim c As Range, f As Long
f = Cells.SpecialCells(xlCellTypeLastCell).Row
For Each c In Range("a1:a" & f)
If c Like st Then
c.EntireRow.Delete
End If
Next
End Sub

Sub Macro2ae()'préserve l'entête
Dim pf As Range, pfs As Range
Application.ScreenUpdating = False
With ActiveSheet
    [A1].AutoFilter 1, "=*N° DE FICHE DE SORTIE*"
    Set pf = Range("_FilterDataBase")
    Set pfs = pf.Offset(1, 0).Resize(pf.Rows.Count - 1)
    pfs.SpecialCells(8).Delete shift:=xlUp
    .AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub

Sub Macro2se()'supprime l'entête
Dim pf As Range, pfs As Range
Application.ScreenUpdating = False
With ActiveSheet
    [A1].AutoFilter 1, "=*N° DE FICHE DE SORTIE*"
    Set pf = Range("_FilterDataBase")
    Set pfs = pf.Offset(1, 0).Resize(pf.Rows.Count - 1)
    pfs.SpecialCells(8).Delete shift:=xlUp
    .AutoFilterMode = False
    .Rows("1:1").Delete
End With
Application.ScreenUpdating = True
End Sub