Bonjour,
ta question était posée pour le tri d'une colonne unique.
Tu envoies maintenant une plage de cellules à trier !?
Clos ce sujet et ouvre en un autre avec un fichier et pose précisément ta question.
Sinon, pour la procédure précédente qui ne fonctionne plus.
Tu as inséré un espace en début des chaînes de caractères
Ci-dessous, la révision :
Public Sub Sort_Data()
Dim tbl, i As Long, j As Long, a, b, tmp
tbl = ActiveSheet.Cells(2, 4).Resize(7).Value
For i = 1 To UBound(tbl)
For j = i To UBound(tbl)
a = Val(Split(Trim(tbl(i, 1)), " ")(0))
b = Val(Split(Trim(tbl(j, 1)), " ")(0))
If b < a Then
tmp = tbl(j, 1)
tbl(j, 1) = tbl(i, 1)
tbl(i, 1) = tmp
End If
Next j
Next i
ActiveSheet.Cells(2, 4).Resize(7).Value = tbl
End Sub
Cdlt.