Sub Tri_TEST_OK_C()
Dim l&, t
l = Cells(Rows.Count, "B").End(3).Row: t = Array(Array(0, 1), Array(1, 1))
Application.DisplayAlerts = False
If Len([A9]) = 0 Then
Range("B9:B" & l).TextToColumns Destination:=Range("A9"), DataType:=2, FieldInfo:=t
Range("A8:D" & l).Sort Key1:=Range("B8:B" & l), Order1:=1, Header:=True
Else
MsgBox "Tableau déjà trié"
End If
End Sub