Function CONCAT(arr As Variant, Sens$, Optional Sep$ = ";")
With Application
Select Case Sens
Case Is = "H" 'plage horizontale
CONCAT = Join(.Transpose(.Transpose(arr)), Sep)
Case Is = "V" 'plage verticale
CONCAT = Join(.Transpose(arr), Sep)
End Select
End With
End Function