Trouver une valeur dans une cellule et la supprimer

Bonjour,

j'ai des cellules avec des listes de mots cles separes par des virgules, de ce type:

"marketing, data, design"

Je souhaiterais trouver tous les "data" dans ma colonne et supprimer uniquement ces valeurs pour que la liste donne:

"marketing, design"

A l'heure actuelle je peux les trouver avec "Find and replace" mais ne peux les supprimer. Merci pour votre aide !

Bonjour, un exemple possible

Sub remplacer()
    Dim c As Range
    For Each c In Feuil1.[A1].CurrentRegion
        lg = InStr(1, c, "data", vbTextCompare)
        If lg > 0 Then
            c = Replace(c, Mid(c, lg, 5), vbNullString, , , vbTextCompare)
        End If
    Next
End Sub

Bonjour,

merci pour votre reponse et desole de n'avoir repondu (pas de notifications donnees par email pour ce doublon)

C'est une formule Vba c'est bien cela ? est ce plus simple a utliser que des formules traditionnelles ou filtres selon vous ?

Bien cordialement,

Moi...Je ne suis pas vous. C'est à vous seul de définir si c'est le résultat qui prime, ou la méthode pour l'obtenir.