Ah si la version n'est pas à jour il faudrait le faire
Pas de panique c'est possible aussi avec les versions antérieures si on code notre propre fonction personnalisée:
Function CONCATENATION(tableau, separateur As String, Optional ignoreVide As Boolean) As String
Dim texte As String
If TypeName(tableau) = "Range" Then
tableau = tableau.Value
End If
For i = LBound(tableau, 1) To UBound(tableau, 1)
If ignoreVide Or (Not ignoreVide And Not tableau(i, 1) = "") Then
texte = texte & IIf(texte = "", "", separateur) & tableau(i, 1)
End If
Next i
CONCATENATION = texte
End Function