Concaténer intelligement des valeurs contenues dans un tableau

Sub BARCODESKG()
    Dim lgn As Currency
    Dim u As Currency
    Dim finpal As Long
    Dim fincont As Long
    Dim container As String
    Dim client As String
    Dim TOTAL As Long

    Dim Dico_CaB As Object
    Dim TCaB        'recupe CaB sans doublons
    Dim STCab       'liste CaB
    Application.ScreenUpdating = False

    finpal = Sheets("FT").Range("A3").End(xlDown).Row
    fincont = Sheets("WEEKLY").Range("B3").End(xlDown).Row
'--------------- SELECTION DU CONTAINER ---------------
    With Worksheets("WEEKLY")
        For u = 3 To fincont - 3
            container = .Cells(u, 9)
            client = .Cells(u, 6)
'--------------- RECHERCHE NOMBRE DE PALETTES PAR CONTAINER & DONNEES ---------------
            TOTAL = 0
            k = -1
            Set Dico_CaB = CreateObject("scripting.dictionary")
            With Sheets("FT")
                For lgn = 3 To finpal
                    If .Cells(lgn, 6).Value = container And .Cells(lgn, 7).Value = client Then
                        TOTAL = TOTAL + .Cells(lgn, 19)
                        cleCaB = .Cells(lgn, 11)
                        If Not Dico_CaB.exists(cleCaB) Then
                            Dico_CaB.Add cleCaB, ""
                        End If
                    End If
                Next lgn
            End With
'--------------- RESTITUTION KG ---------------
            .Cells(u, 12) = TOTAL
'--------------- RESTITUTION BARCODES ---------------
            TCaB = Dico_CaB.keys
            STCab = Join(TCaB, ";")
            .Cells(u, 14) = STCab
            Set Dico_CaB = Nothing
        Next u
    End With
    Application.ScreenUpdating = True
End Sub

Sub BARCODESKG()
    Dim lgn As Currency
    Dim u As Currency
    Dim finpal As Long
    Dim fincont As Long
    Dim container As String
    Dim client As String
    Dim TOTAL As Long

    Dim Dico_CaB As Object
    'Dim TCaB()        'recupe CaB sans doublons
    Dim STCab       'liste CaB
    Application.ScreenUpdating = False

    finpal = Sheets("FT").Range("A3").End(xlDown).Row
    fincont = Sheets("WEEKLY").Range("B3").End(xlDown).Row
'--------------- SELECTION DU CONTAINER ---------------
    With Worksheets("WEEKLY")
        For u = 3 To fincont - 3
            container = .Cells(u, 9)
            client = .Cells(u, 6)
'--------------- RECHERCHE NOMBRE DE PALETTES PAR CONTAINER & DONNEES ---------------
            TOTAL = 0
            k = -1
            Set Dico_CaB = CreateObject("scripting.dictionary")
            With Sheets("FT")
                For lgn = 3 To finpal
                    If .Cells(lgn, 6).Value = container And .Cells(lgn, 7).Value = client Then
                        TOTAL = TOTAL + .Cells(lgn, 19)
                        cleCaB = .Cells(lgn, 11)
                        If Not Dico_CaB.exists(cleCaB) Then
                            Dico_CaB.Add cleCaB, ""
                        End If
                    End If
                Next lgn
            End With
'--------------- RESTITUTION KG ---------------
            .Cells(u, 12) = TOTAL
'--------------- RESTITUTION BARCODES ---------------
            TCaB = Dico_CaB.keys
            
                Call tri(TCaB, LBound(TCaB), UBound(TCaB))
                
            STCab = Join(TCaB, ";")
            .Cells(u, 14) = STCab
            Set Dico_CaB = Nothing
        Next u
    End With
    Application.ScreenUpdating = True
End Sub

Sub tri(a, gauc, droi) ' Quick sort
  ref = a((gauc + droi) \ 2)
  g = gauc: d = droi
  Do
    Do While a(g) < ref: g = g + 1: Loop
    Do While ref < a(d): d = d - 1: Loop
    If g <= d Then
       temp = a(g): a(g) = a(d): a(d) = temp
       g = g + 1: d = d - 1
    End If
  Loop While g <= d
  If g < droi Then Call tri(a, g, droi)
  If gauc < d Then Call tri(a, gauc, d)
End Sub