Sub test()
Dim arr1, arr2() As Variant
'arr1 = Array(1, 2, 3, 4, 5)'array codé en dur
arr1 = Split("1,2,3,4,5", ",") ' array issu d'un split
arr2 = Array(6, 7, 8, 9, 10)
MsgBox Join(MergeArrays(arr1, arr2), ";")
End Sub
Sub test2()
Dim arr1() As Variant, arr2() As Variant
arr1 = Array("toto", "titi", "riri")
arr2 = Array("fifi", "loulou", "truc")
MsgBox Join(MergeArrays(arr1, arr2), ";")
End Sub
Function MergeArrays(ByRef arr1 As Variant, ByRef arr2 As Variant) As Variant
Dim t
t = Join(arr1, ";") & ";" & Join(arr2, ";")
MergeArrays = Split(t, ";")
End Function