Bonjour,
Une proposition avec une fonction personnalisée en VBA.
Cdlt.
Option Explicit
Option Compare Text
Function SortString(ByVal vRange) As Double
Dim i As Byte, j As Byte
Dim sTemp As String
Application.Volatile
If vRange = "" Then SortString = 0: Exit Function
For j = 1 To Len(vRange) - 1
For i = 1 To Len(vRange) - 1
If Mid(vRange, i, 1) > Mid(vRange, i + 1, 1) Then
sTemp = Mid(vRange, i, 1)
Mid(vRange, i, 1) = Mid(vRange, i + 1, 1)
Mid(vRange, i + 1, 1) = sTemp
End If
Next
Next
SortString = vRange
End Function