Macro suppression de ligne contenant une chaine de caractère

Bonjour à tous,

J'ai un morceau de code permettant de supprimer une ligne contenant un certain mot (voir ci-dessous), mais j'aimerais l'adapter... J'aimerais supprimer en effet les lignes dont la chaine de caractères de telle cellule commence par "BOM" (ce sont des références types BOM_xxxx).
Pouvez-vous m'aider svp ?

Sub Suppimer_ligne()
Dim Plage As Range
Dim Colonne As Integer
Dim Mot As String
Dim NomFeuille As String
    NomFeuille = "Feuille"
    Mot = "toto"
    Colonne = 3
 
    With ThisWorkbook.Worksheets(NomFeuille)
        ' plage des données
        Set Plage = .Cells(2, 1).Resize(.UsedRange.Rows.Count - 1, .UsedRange.Columns.Count)
 
        With .Range("A1")
            ' retrait des filtres s'il y en a
            .AutoFilter
            ' application du filtre
            .AutoFilter Colonne, Mot
            On Error Resume Next
                ' tentative de suppression des résultats
                Plage.SpecialCells(xlCellTypeVisible).EntireRow.Delete
                ' s'il n'y avait pas de résultat : on l'indique
                If Err <> 0 Then MsgBox "Pas de résultat"
            On Error GoTo 0
            ' suppression des filtres
            .AutoFilter
        End With
    End With
End Sub

En résumé :
A l'heure actuelle cette macro supprime les lignes comprenant le mot "toto" dans la colonne 3.
Je souhaiterais qu'elle supprime les lignes comprenant les mots commençant par "BOM" dans la colonne 3.