Supprimer des valeurs dans une cellule

Bonjour à toutes et à tous,

Comment supprimer des valeurs dans plusieurs cellules à partir d'une liste de valeurs présente dans une colonne.

Exemple :

Dans une cellule dans un onglet appelé "RECAP" :

A1 = HK377967155JBHK377967181JB HK377967195JB HK377967252JB (Le séparateur est l'espace)

sur un autre onglet appelé "SUPP" en colonne A :

HK377967155JB

HK377967195JB

Dans mon exemple, je souhaite supprimer dans l'onglet RECAP les valeurs présentes sur l'onglet SUPP.

Vous remerciant par avance.

Cordialement

@leX

Veuillez trouver ci joint un exemple

Re,

Un code à tester :

Sub Remplacer()
    derLigRecap = Sheets("RECAP").Range("A" & Rows.Count).End(xlUp).Row
    derLigSupp = Sheets("SUPP").Range("A" & Rows.Count).End(xlUp).Row
    For Each celSupp In Sheets("SUPP").Range("A1:A" & derLigSupp)
        For Each celRecap In Sheets("RECAP").Range("A2:A" & derLigRecap)
            If celRecap <> "" And celRecap Like "*" & celSupp & "*" Then
                celRecap.Value = WorksheetFunction.Substitute(celRecap, celSupp, "")
            End If
        Next celRecap
    Next celSupp
End Sub

Un grand bravo Raja. Cela fonctionne parfaitement ^^

Merci pour ta diligence.