Sub test_suppr_lignes_v2()
Dim I_Will As Range, f As Range
Application.ScreenUpdating = False
[B2].FormulaR1C1 = "=OR(CODE(MID(RC[-1],1,1))=32,CODE(MID(RC[-1],1,1))=48)"
Range([A1], [A65536].End(xlUp)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("B1:B2"), Unique:=False
Set f = [_FilterDataBase]
Set I_Will = f.Offset(1, 0).Resize(f.Rows.Count - 1).SpecialCells(12)
Application.DisplayAlerts = False
I_Will.Delete: Columns(2).Delete
ActiveSheet.ShowAllData
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub