Macro suppression de ligne avec une cellule contenant 84511/11101-03

Bonsoir à la communauté

je me suis inspiré du message du 13/2/2012 permettant de supprimer toutes les lignes avec le mot representative.;;
de Boisgontier

j'ai pensé qu'en y mettant 84511/11103-01 à la place ça pouvait aussi fonctionner

c'est pas le cas....

où est l'astuce?

merci bien
urbanito1



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

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 "*84511/11101-03*" 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