Function Joindre1(Plage)
If Plage.Rows.Count = 1 Then Plage = Application.Transpose(Plage)
Plage = Application.Transpose(Plage)
Joindre1 = Join(Plage, "-")
End Function
Function Joindre2(Plage)
Dim ub&, tablo(), p, n&
Plage = Plage 'crée un tableau à 2 dimensions
ub = Application.Max(UBound(Plage), UBound(Plage, 2))
ReDim tablo(ub - 1) 'tableau à une dimension
For Each p In Plage
tablo(n) = p
n = n + 1
Next
Joindre2 = Join(tablo, "-")
End Function