XL 2016 cumuler plusieurs valeurs d'une cellule selon critère

Sub Consolide()
    Application.ScreenUpdating = False
    DL = Range("A65500").End(xlUp).Row
    Range("E1:E" & DL) = Range("A1:A" & DL).Value                               ' Copier Coller valeurs
    Range("F1:F" & DL).ClearContents                                            ' Efface colonne F
    ActiveSheet.Range("$E$1:$E$9").RemoveDuplicates Columns:=1, Header:=xlNo    ' Supprimer doublons
    tablo = Range("A2:B" & DL)                                                  ' Transfert données dans array
    Ligne = 2
    While Range("E" & Ligne) <> ""
        CodeClient = Range("E" & Ligne)                         ' Récupération code client
        Chaine = ""
        For i = 1 To UBound(tablo)                              ' Parcourt le tablo
            If tablo(i, 1) = CodeClient Then                    ' Si code client détecté
                Chaine = Chaine & tablo(i, 2) & ";"             ' Ajout dans le résultat
            End If
        Next i
        Cells(Ligne, "F") = Mid(Chaine, 1, Len(Chaine) - 1)     ' Ecriture résultat sauf ";" final
        Ligne = Ligne + 1
    Wend
End Sub