Sub SupprimerMartin()
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
With Sheets("TEST")
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .Range("A1", .UsedRange)
.Columns("G").Insert xlToRight
.Columns("G") = "=1/ISERROR(SEARCH(""Martin"",RC[1]))"
.Columns("G") = .Columns("G").Value 'supprime les formules
.Sort .Columns("G"), xlAscending, Header:=xlNo 'tri pour grouper et accélérer
.Columns("G").SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
.Columns("G").Delete xlToLeft
End With
With .UsedRange: End With 'actualise les barres de défilement
End With
End Sub