Sub Filtrer()
Application.ScreenUpdating = False
With [A1].CurrentRegion
.Columns(11).EntireColumn.Insert 'colonne auxiliaire
.Columns(11) = "=LN(RC[1]<>""OUT"")" 'formule pour filtrer
.Columns(11) = .Columns(11).Value 'supprime les formules
.Sort .Columns(11), xlAscending, Header:=xlYes 'tri pour regrouper et accélérer
On Error Resume Next 'si aucune SpecialCell
Intersect(.Columns(11).SpecialCells(xlCellTypeConstants, 16).EntireRow, .Cells).Delete xlUp 'supprime les valeurs d'erreur
.Columns(11).EntireColumn.Delete 'supprime la colonne auxiliaire
End With
End Sub