Merci
J'ai essayé le code VBA
Function RechTous(v, champRech As Range, ChampRetour As Range, separateur)
a = champRech
temp = ""
For i = 1 To champRech.Count
If a(i, 1) = v Then
temp = temp & ChampRetour(i) & separateur
End If
Next i
RechTous = Left(temp, Len(temp) - 1)
End Function
Ca fonctionne très bien