Bonsoir,
Sous forme de fonction personnalisée :
Function RECHMULT(txR As String, Plg As Range)
Dim a, b, c, i%
Application.Volatile
With Plg
a = .Columns(1).Value
b = .Columns(.Columns.Count).Value
End With
For i = 1 To UBound(a)
If a(i, 1) = txR Then c = c & Chr(10) & b(i, 1)
Next i
RECHMULT = Replace(c, Chr(10), "", 1, 1)
End Function
Cordialement.