Sub Supprimer()
Application.ScreenUpdating = False
With Feuil1 'CodeName à adapter
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .[A4].CurrentRegion
.Columns(4).Insert xlToRight 'insère une colonne auxiliaire
.Columns(4) = "=1/OR(RC[1]<R1C4,N(RC[1])>R2C4)" 'formule des critères
.Columns(4) = .Columns(4).Value 'supprime les formules
.Sort .Columns(4), xlDescending 'tri pur regrouper les 1 et accélérer
On Error Resume Next 'si aucune SpecialCell
Intersect(.Columns(4).SpecialCells(xlCellTypeConstants, 1).EntireRow, .Cells).Delete xlUp
.Columns(4).Delete xlToLeft 'supprime la colonne auxiliaire
End With
With .UsedRange: End With 'actualise les barres de défilement
End With
End Sub