Bonjour
Dans un Module, le code de la fonction personnalisée
Function RechercheMultiples(ValeurCherchée As String, MatriceCherche, MatriceTrouve, Optional Seprator As String) As String
Dim c, i As Long
If Separator = "" Then Separator = Chr(10)
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
En D14, la formule
=RechercheMultiples($C$2;Consignes!$A$2:$A$10426;Consignes!$C$2:$C$10426;"")
en D16 (je pense que tu t'es trompé de colonne
=RechercheMultiples($C$2;Consignes!$A$2:$A$10426;Consignes!$E$2:$E$10426;"")
L'image du résultat obtenu
Cordialement