Gestion des plages VBA (exclure cellules)

Sub Efface()
    Dim ws As Worksheet
    Dim ligdeb As Long, ligfin As Long
    Dim plage As String
    Dim i As Integer
    
    Application.ScreenUpdating = False
    
    Set ws = ActiveSheet        'à adapter
    ligfin = ws.Cells(65536, 1).End(xlUp).Row
    ligdeb = 1
    plage = "A1:F" & ligfin
    
    With ws.Range(plage)
        For i = .Rows.Count To ligdeb Step -1
            If .Cells(i, 6) <> "X" Then .Cells(i, 1).EntireRow.Delete
        Next
    End With
    
    Application.ScreenUpdating = True

End Sub

Sub Macro1()
Range("A1:F15").AutoFilter Field:=6, Criteria1:="<>X", Operator:=xlAnd
Range("_FilterDatabase").Offset(1, 0).Resize(Range("_FilterDatabase").Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub