Salut le forum
Avec une petite fonction VBA, code à place dans un module standard.
Public Function Concatener_Matrice(ByVal Matrice As Variant, separateur As String) As String
Dim c As Variant
Application.Volatile
For Each c In Matrice
Concatener_Matrice = Concatener_Matrice & c & separateur
Next
If Len(Concatener_Matrice) > 0 Then
Concatener_Matrice = Left(Concatener_Matrice, Len(Concatener_Matrice) - Len(separateur))
End If
End Function
Exemple d'utilisation :
=Concatener_Matrice(A1:A17;"-")
Mytå