Suppression de lignes

Bonjour,

J’ai une macro pour supprimer certaines lignes de mon tableau il y a deux « codes » 1 ou FAUX si c’est FAUX je veux faire supprimer mes lignes pour se faire j’ai la macro ci-après mais j’ai une erreur que je n’arrive pas à solutionner…
J’ai donc besoin d’aide…

Sub TriSurX()
'
' TriSurX Macro
'

'
    ActiveWorkbook.Worksheets("Fiche réquisition").ListObjects("Tableau1").Sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("Fiche réquisition").ListObjects("Tableau1").Sort. _
        SortFields.Add Key:=Range("Tableau1[#All,[X]]"), SortOn:=xlSortOnValues, _
        Order:=xlDescending, DataOption:=xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Fiche réquisition").ListObjects("Tableau1"). _
        Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=24, Criteria1:= _
        "FAUX"
    Range("Tableau1").Select
    Rows(Selection.Row).Delete shift:=xlUp
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=24
    ActiveWindow.SmallScroll Down:=-30
    Range("A1").Select
    Selection.NumberFormat = "General"
    ActiveCell.FormulaR1C1 = "=R[4]C"
    Range("A5").Select
End Sub

Merci d'avance