Petite recherche pour supprimer ...

Range("D1:K500").Replace "tonmot", "", xlPart, , False

Private Sub CommandButton1_Click()

    Dim LaPlage As Range
    Dim Mot As String
    Dim c As Range
    
    Set LaPlage = Range("D1:K500")
    
    Mot = InputBox("Quel mot recherchez-vous ?", "Recherche")

    If Mot = "" Then Exit Sub
    
    For Each c In LaPlage
        [COLOR="Green"][B]If c = Mot Then[/B][/COLOR]
            Range(c.Address).Select
            Select Case MsgBox("Êtes-vous certain de vouloir effacer ce mot ?", vbYesNo, "Confirmation")
                Case vbYes
                    Selection = ""
                Case vbNo
                    Exit Sub
            End Select
        End If
    Next c

End Sub

...
...
Else
    MsgBox "Ce mot n'est pas dans la plage !"
    Exit Sub
...
...