Bonjour,
un essai fonction personnalisée:
en C2 : =HZH($A$2:$B$11;A2) puis tirer vers le bas
Dans un module standard :
Function HZH(Plage As Range, Cel As Range) As String
Dim Dico, T, i As Long
T = Plage
Set Dico = CreateObject("Scripting.Dictionary")
For i = LBound(T, 1) To UBound(T, 1)
If T(i, 1) = Cel.Value Then
If Not Dico.Exists(T(i, 1)) Then
Dico(T(i, 1)) = T(i, 2)
Else
Dico(T(i, 1)) = Dico(T(i, 1)) & ", " & T(i, 2)
End If
End If
Next
HZH = Dico(Cel.Value)
End Function
A+