Sub trispe()
tablo = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
For m = LBound(tablo, 1) To UBound(tablo, 1)
If Split(tablo(n, 1))(2) & " " & Split(tablo(n, 1))(3) < Split(tablo(m, 1))(2) & " " & Split(tablo(m, 1))(3) Then
temp = tablo(n, 1)
tablo(n, 1) = tablo(m, 1)
tablo(m, 1) = temp
End If
Next
Next
Range("B2").Resize(UBound(tablo, 1)) = tablo
End Sub