XL 2013 Tri de données depuis un CSV

Sub TestRecup()
With Worksheets("The_Pick_Saturday__October_13__")
      DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row
       Tablo = .Range(.Cells(2, 1), .Cells(DerLgn, 1)).Value
    
    For Lgn = 1 To UBound(Tablo, 1)
        Tbl = VBA.Split(Tablo(Lgn, 1), ",")
        DerLgn = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        
        ' On récupére les 6 dernières valeurs de Tbl
        Dim Tbl_Recup() As Variant 
        If UBound(Tbl) >= 5 Then
            Tbl_Recup = VBA.Array(Tbl(UBound(Tbl) - 5), Tbl(UBound(Tbl) - 4), Tbl(UBound(Tbl) - 3), Tbl(UBound(Tbl) - 2), Tbl(UBound(Tbl) - 1), Tbl(UBound(Tbl)))
        Else
            Tbl_Recup = Tbl ' Si moins de 6 valeurs, on prend tout
        End If       
        ' On Colle des valeurs dans la feuille
               .Cells(DerLgn, 2).Resize(1, UBound(Tbl_Recup) + 1).Value = Tbl_Recup
    Next Lgn
End With
End Sub