Bonjour,
Merci a tous pur vos réponses, il me reste juste un petit problème
Voici mon code :
Function ConcatPlage(plage As Range, séparateur As String, Optional contenant As String) As String
Dim rep As String, c As Range
For Each c In plage
If InStr(c.Value, contenant) > 0...