XL 2021 trier dans une cellule

Function TrierChaine$(ByVal x$)
Dim t, s, i&, n&, aux, ech As Boolean
   t = Split(Application.Trim(x)): ReDim r(0 To UBound(t) + 1): n = -1
   For i = 0 To UBound(t)
      If IsNumeric(t(i)) Then n = n + 1: r(n) = Val(t(i))
   Next i
   Do
      ech = False
      For i = 0 To n - 1
         If r(i) > r(i + 1) Then ech = True: aux = r(i): r(i) = r(i + 1): r(i + 1) = aux
      Next i
   Loop Until Not ech
   TrierChaine = Trim(Join(r))
End Function