Supprimer toutes les lignes contenant le mot "Representative"

Sub test()
Dim I As Integer
Application.ScreenUpdating = False
For I = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Range("A" & I).Value Like "*Representative*" Then Rows(I).Delete
Next I
Application.ScreenUpdating = True
End Sub

Sub test()
Dim obj, resultat, DerLig&, i&
Set obj = CreateObject("vbscript.regexp")
DerLig = Range("A" & Rows.Count).End(xlUp).Row
For i = DerLig To 1 Step -1
  obj.Pattern = ".*Representative.*"
    If obj.test(Cells(i, 1)) = True Then Cells(i, 1).Delete shift:=xlUp
  Next i
End Sub

Sub suppr()
Dim cellRecherche As Range, Mot As String
Mot = InputBox("Mot à rechercher", "Effacement ligne")
Set cellRecherche = ActiveSheet.Cells.Find(Mot, , , xlPart)
While Not cellRecherche Is Nothing
cellRecherche.EntireRow.Delete
Set cellRecherche = ActiveSheet.Cells.Find(Mot, , , xlPart)
Wend
End Sub

Sub Macro1()
Dim Cel As Range
Do
    Set Cel = Cells.Find(What:="Representative", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
                    SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False)
    If Cel Is Nothing Then
        Exit Do
    Else
        Rows(Cel.Row).Delete
    End If
Loop
End Sub

Sub supLignesRapide2()
  Application.ScreenUpdating = False
  a = Range("A1:A" & [A65000].End(xlUp).Row)
  For i = LBound(a) To UBound(a)
    If a(i, 1) Like "*Representative*" Then a(i, 1) = "sup" Else a(i, 1) = 0
  Next i
  Columns("b:b").Insert Shift:=xlToRight
  [B1].Resize(UBound(a)) = a
  [A1].CurrentRegion.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess
  On Error Resume Next
  Range("B1:B65000").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
  Columns("b:b").Delete Shift:=xlToLeft
End Sub

Sheets("Liste").Select
For r = Range("F12").End(xlDown).Row To 12 Step -1
 If Range("F" & r) = "Faux" Then Rows(r).Delete
Next r