Sans prétension, je poste une modif du code de Modeste geedee pour respecter l'ordre des mots si plusieurs mots dans une même cellule.
Function SortString(ByVal iRange, Optional Croissant As Boolean = True)
Dim i%, j%, S%, sTemp$, tabl
tabl = Split(iRange, " ")
For S = 0 To UBound(tabl)
For j...