Non car un tri alpha est toujours comme la bien expliqué @gbinforme caractère par caractère et donc 7 sera toujours > à 1.Bien alors pas moyen de changer cette interprétation ?
Alors le voicij'aurais préféré du code.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("C3:C9").FormulaR1C1 = "=LEFT(RC1,SEARCH(""/"",RC1)-1)*10000+MID(RC1,SEARCH(""/"",RC1)+1,4)*1"
Range("A3:C9").Sort Key1:=Range("c3"), Order1:=xlAscending
Range("C3:C9").ClearContents
End Sub
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Range("C3:C9").FormulaR1C1 = "=LEFT(RC1,SEARCH(""/"",RC1)-1)*10000+MID(RC1,SEARCH(""/"",RC1)+1,4)*1"
Range("A3:C9").Sort Key1:=Range("c3"), Order1:=xlDescending
Range("C3:C9").ClearContents
End Sub
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ModNumTemp
Range("A3:C9").Sort Key1:=Range("c3"), Order1:=xlAscending
Range("C3:C9").ClearContents
End Sub
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
ModNumTemp
Range("A3:C9").Sort Key1:=Range("c3"), Order1:=xlDescending
Range("C3:C9").ClearContents
End Sub
Private Sub ModNumTemp()
Dim T(), L As Long, TSpl() As String
T = [A3:A9].Value
For L = 1 To UBound(T, 1)
TSpl = Split(T(L, 1), "/")
T(L, 1) = TSpl(0) * 10000 + TSpl(1)
Next L
[C3:C9].Value = T
End Sub