Bonjour
Avec une fonction personnalisée
Code dans un module
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, la formule en M4 a incrémenter sur tout le tableau
=RechercheMultiples($L4;E$4:E$10;$D$4:$D$10;"")
Cordialement