Supprimer des lignes qui contiennent un mot précis

Sub Suppression()

    Dim i As Integer
    Dim Ws As Worksheet
    
    Set Ws = Sheets("Feuil2")
    
    With Ws
    For i = .Range("B65536").End(xlUp).Row To 1 Step -1
        
        If .Range("B" & i).Value Like "*" & "CEDEX" & "*" Then .Rows(i).Delete
        
    Next i
    End With
    
    
End Sub

Sub SupprimerCedex()
[B:B].Replace "*cedex*", "" 'la casse est ignorée
On Error Resume Next
[B:B].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Sub SupprimerCedex()
[B:B].Replace "*cedex*", "#N/A" 'la casse est ignorée
On Error Resume Next
[B:B].SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
End Sub