Tri par ordre croissant dans une cellule

Private Sub CommandButton1_Click()
Dim plage As Range, DerCel As Range, cel As Range
Dim tbl(), TbTrie As Integer, x As Integer, cible
 
With Sheets("Feuil1") 'à remplacer par le nom de feuille
  Set DerCel = .Range("A" & .Rows.Count).End(xlUp)
  Set plage = .Range("A2", DerCel) 'si titre en A1
  For Each cel In plage
    ReDim tbl(UBound(Split(cel, ",")))
    For x = 0 To UBound(tbl)
      tbl(x) = Split(cel, ",")(x)
    Next x
    Do
      TbTrie = 0
      For x = 0 To UBound(tbl) - 1
        If Val(tbl(x)) > Val(tbl(x + 1)) Then
                cible = tbl(x)
                tbl(x) = tbl(x + 1)
                tbl(x + 1) = cible
                TbTrie = 1
            End If
        Next x
    Loop While TbTrie = 1
    cible = Join(tbl, ",")
    cel(1, 2) = cible
  Next cel
End With
End Sub

cel(1, 2) = cible

cel(1, 1) = cible