[/FONT]
[FONT=Arial]Function ConcatPlage(plage As Range, séparateur As String, Optional contenant As String) As String[/FONT]
[FONT=Arial] Dim rep As String, c As Range[/FONT]
[FONT=Arial] For Each c In plage[/FONT]
[FONT=Arial] If InStr(c.Value, contenant) > 0 Then[/FONT]
[FONT=Arial] rep = rep & c.Value & séparateur[/FONT]
[FONT=Arial] End If[/FONT]
[FONT=Arial] Next c[/FONT]
[FONT=Arial] ConcatPlage = Left(rep, Len(rep) - Len(séparateur))[/FONT]
[FONT=Arial]End Function