Bonjour,
Si vous avez la fonction CONCAT(), il est possible de l'utiliser pour avoir le résultat souhaité, il faudra juste se débarrasser du "|" à la fin, sinon, une fonction personnalisée peut aussi faire le travail:
Function f_ConcatSpecial(Plage As Range, separateur)
Dim texte As String
Dim Cel As Range
For Each Cel In Plage
texte = texte & IIf(texte = "", "", separateur) & Cel
Next Cel
f_ConcatSpecial = texte
End Function