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