C'est une fonction personnalisée dont voici le code à mettre dans un module.
Code:
Function conca(champ)temp = ""
For Each c In champ
If Len(c.Value) >= 1 Then temp = temp & ";" & c.Value
Next c
conca = Left(temp, Len(temp))
End Function
clic droit sur l'onglet Feuil1, puis visualiser le code.
ensuite insertion module et tu colles le code.