XL 2019 Suppression de lignes avec condition VBA

Sub SupprimerOUT()
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
With ActiveSheet
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    '---épure la feuille en supprimant les lignes vides du bas---
    .Range(.Cells.Find("*", , xlValues, , xlByRows, xlPrevious)(2), .Rows(.Rows.Count)).Delete
    '---supprime les lignes OUT---
    With .UsedRange.Offset(1).Resize(.UsedRange.Rows.Count - 1) 'évite la ligne des en-têtes
        .Columns(44).EntireColumn.Insert 'insère une colonne auxiliaire
        With .Columns(44)
            .FormulaR1C1 = "=1/(RC[1]<>""OUT"")" 'valeur d'erreur si OUT
            .Value = .Value 'supprime les formules
            .EntireRow.Sort .Cells, xlAscending, Header:=xlNo 'tri pour regrouper et accélérer
            .SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete 'supprime les valeurs d'erreur
            .EntireColumn.Delete 'supprime la colonne auxiliaire
        End With
    End With
    '---actualise les barres de défilement---
    With .UsedRange: End With
End With
End Sub

Sub Suppr()
    Dim n&, i&
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual 'évite le recalcul des formules
    With ActiveSheet 'Avec la feuille active
        n = .Range("A" & .Rows.Count).End(xlUp).Row  'je recherche la dernière ligne remplie de la colonne A
          For i = n To 2 Step -1 'Je boucle sur chaque cellule de la colonne AR en partant du bas vers le haut (ligne2) (STEP -1 pour remonter ligne par ligne
              'Si dans la colonne AR et la ligne, il y a le mot OUT, je supprime la ligne
              If Range("AR" & i).Value = "OUT" Then .Range("AR" & i).EntireRow.Delete
          Next i
    End With
    Application.Calculation = xlCalculationAutomatic
End Sub