Microsoft 365 Macro Excel : supprimer des lignes en fonction de plusieurs critères

Sub exemple_b()
Dim T, Plg As Range, A_COPIER As Range, Choix_Fic, WBK As Workbook, f As Worksheet
Dim pf As Range, Plg2 As Range, fD As Worksheet
'On efface les données précédentes
Set fD = Sheets("DATA")
T = Array("FIFO", "DEVIS", "DEVIS ACCEPTE"): fD.Range("A:AB").Clear
Set Plg = Worksheets("FIFO").Range("A:J"): Plg.Clear: Sheets(T).FillAcrossSheets Plg
With Application
    .ScreenUpdating = False
    'Choix du fichier Source
    Choix_Fic = .GetOpenFilename(Title:="Choisir le classeur Source", FileFilter:="Classeur XL (*.xls*),*xls*")
        If Choix_Fic <> False Then
            Set WBK = Workbooks.Open(Choix_Fic): Set f = WBK.Sheets(1)
            Set A_COPIER = Intersect(f.UsedRange.EntireRow, f.[A:AB]): A_COPIER.Copy fD.Cells(1): WBK.Close False
        End If
    .CutCopyMode = False
End With
fD.Columns("A:AB").EntireColumn.AutoFit: fD.[A1:AB1].Font.Bold = -1
With fD.UsedRange
.Font.Size = 12: .Interior.Color = xlNone
End With
Dim fOP As Range
With Application
    .ScreenUpdating = False: Set fOP = Sheets("FIFO").Cells(1)
'On garde dans la colone I toutes les valeurs SAUF V27
    Set Plg2 = Intersect(fD.UsedRange.EntireRow, fD.[A:AB]): Plg2.AutoFilter 9, "=V27", xlAnd
    Set pf = fD.Range("_FilterDataBase")
    pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(12).EntireRow.Delete: fD.ShowAllData: fD.AutoFilterMode = False
'réagencement des colonnes sur FIFO
    Dim LCol As Variant, N_Col As Variant, vFIFO, Dlg&, X&
    Dlg = fD.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
    Const SwapCol As String = "AA,B,L,A,E,I,S,P,T,H": LCol = Split(SwapCol, ",")
    ReDim N_Col(1 To UBound(LCol) + 1)
    For X = 0 To UBound(LCol): N_Col(X + 1) = fD.Columns(LCol(X)).Column: Next
    fOP.Resize(Dlg, UBound(LCol) + 1) = .Index(fD.Cells, Evaluate("ROW(1:" & Dlg & ")"), N_Col)
    fOP.Resize(Dlg, UBound(LCol) + 1).Columns.AutoFit: Sheets("FIFO").Range("A:A,I:I").NumberFormat = "m/d/yyyy"
'Renommer les en-têtes de la feuille FIFO des colonnes A, D, E, G
    fOP = "Arrivée": fOP(1, 4) = "N° de Série": fOP(1, 5) = "Type App": fOP(1, 7) = "TyT"
    vFIFO = Sheets("FIFO").Cells(1).CurrentRegion.Value
' "Copie/Colle" les données de FIFO dans la feuille DEVIS
    Sheets("DEVIS").Cells(1).Resize(UBound(vFIFO, 1), UBound(vFIFO, 2)) = vFIFO
    Sheets("DEVIS").Range("A:A,I:I").NumberFormat = "m/d/yyyy"
    Sheets("DEVIS").[A1] = "Acc. Devis": Sheets("DEVIS").[J1] = "Statut"
    .ScreenUpdating = True
End With
End Sub