Sub trier()
Dim T, i, j, ech As Boolean, aux
Application.GoTo Sheets("Feuil1").Range("A1"), True
Application.ScreenUpdating = False
T = Range("A1").CurrentRegion.Value
On Error GoTo VIDE
For i = 1 To UBound(T)
Do
ech = False
For j = 1 To 11
If T(i, j) < T(i, j + 1) Then
aux = T(i, j): T(i, j) = T(i, j + 1): T(i, j + 1) = aux: ech = True
End If
Next j
DoEvents
Loop Until ech = False
Next i
VIDE:
Range("A1").CurrentRegion.Value = T
MsgBox "C'est fini !"
Application.ScreenUpdating = True
End Sub