Bonjour
En premier, tu ouvres ton fichier et tu fais un "Enregistrer sous" en sélectionnant "Classeur prenant en charge les macros", puis dans un Module, tu copies le Code suivant:
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
RechercheMultiples = RechercheMultiples & Separator & MatriceTrouve(i)
End If
End If
Next c
End Function
ensuite, tu entres en E2 la formule
=RechercheMultiples(E2;$A$2:$A$248;B2:B248;" ")
qui s'incrémente vers le bas.
Cordialement