Supprimer les répétition au sein d'une cellule

Bonjour,

J'ai un petit problème de répétition, et ce n'est pas comme les doublons, donc je bloque.

En fait j'ai une formule qui me permet de récupérer des mots dans un autre onglet, ce qui fait que j'obtiens une liste de mot dans ma cellule, par exemple en B4 j'ai "lait lait lait cacao soja soja".

J'aimerais ne pas avoir de répétition des mots (avoir seulement "lait cacao soja"). le problème c'est que mon document est très gros et que je ne peux pas le faire manuellement.

Vous auriez une solution?

Merci d'avance

Bonjour

C'est surement au niveau de la formule qu'il faut modifier et non âgir sur le résultat. Peux-tu joindre un fichier exemple avec cette formule?

Cordialement

Bonjour

Bonjour Amadéus

Envoies une partie de ton document afin de faire quelques essais

Bonjour,

voici un fichier exemple (je ne peux pas mettre le vrai).

il est beaucoup plus petit mais il y a tout ce qu'il faut

merci de votre aide

Bonjour

En modifiant ta fonction

Function RechercheMultiples(ValeurCherchée As String, MatriceCherche, MatriceTrouve, Optional Seprator As String) As String
Dim c, i As Long
  If Separator = "" Then Separator = "  "
  For Each c In MatriceCherche
    i = i + 1
    If ValeurCherchée = c Then
      If RechercheMultiples = "" Then
        RechercheMultiples = MatriceTrouve(i)
      Else
       If InStr(1, RechercheMultiples, MatriceTrouve(i), vbTextCompare) = 0 Then
          RechercheMultiples = RechercheMultiples & Separator & MatriceTrouve(i)
       End If
      End If
    End If
  Next c
End Function

merci, c'est exactement ce qu'il me fallait!