XL 2019 Classement onglets

Sub Tri_onglet()
  Application.ScreenUpdating = False
  Dim a(256)
  n = Sheets.Count
  For i = 1 To n
     a(i) = Sheets(i).Name
  Next i
  '----  tri
  For i = 1 To n
     For j = i To n
        If Replace(Replace(Replace(Replace(a(j), ".", ","), "PK", ""), "+", 1), "-", 0) * 1 < Replace(Replace(Replace(Replace(a(i), ".", ","), "PK", ""), "+", 1), "-", 0) * 1 Then
          Temp = a(j)
          a(j) = a(i)
          a(i) = Temp
        End If
     Next j
  Next i
  '---
  For i = 1 To n
     Sheets(a(i)).Move before:=Sheets(i)
  Next i

End Sub

Function NumToString(V) As String
Dim N As String
For i = 1 To Len(V)
    If IsNumeric(Mid(V, i, 1)) Then
        N = N & Mid(V, i, 1)
    Else
        If N <> "" Then
            NumToString = NumToString & Format(N, String(13, "0"))
            N = ""
        End If
       NumToString = NumToString & Mid(V, i, 1)
    End If

Next
If N <> "" Then
        NumToString = NumToString & Format(N, String(13, "0"))
    End If
End Function
Sub test()
With ThisWorkbook
    For i = 2 To .Sheets.Count
        If NumToString(.Sheets(i).Name) < NumToString(.Sheets(i - 1).Name) Then
        .Sheets(i).Move Before:=.Sheets(i - 1)
         i = i - 2
        End If
        If i < 1 Then i = 1
    Next
End With
End Sub

Function NumToString(V) As String
Dim N As String
For i = 1 To Len(V)
    If Mid(V, i, 1) = "." And N <> "" And Not CBool(InStr(N, ".")) Then
        N = N & Mid(V, i, 1)
    Else
        If IsNumeric(Mid(V, i, 1)) Then
            N = N & Mid(V, i, 1)
        Else
            If N <> "" Then
                NumToString = NumToString & Format(Val(Replace(N, ",", ".")), String(13, "0") & "." & String(13, "0"))
                N = ""
            End If
            NumToString = NumToString & Mid(V, i, 1)
        End If
    End If
Next
If N <> "" Then
        NumToString = NumToString & Format(Val(Replace(N, ",", ".")), String(13, "0") & "." & String(13, "0"))
    End If
End Function
Sub test()
With ThisWorkbook
    For i = 2 To .Sheets.Count
        If NumToString(.Sheets(i).Name) < NumToString(.Sheets(i - 1).Name) Then
         .Sheets(i).Move Before:=.Sheets(i - 1)
         i = i - 2
        End If
        If i < 1 Then i = 1
    Next
End With
End Sub
Sub a()
Debug.Print NumToString("PK 10.4") < NumToString("PK 10.041.")
End Sub

Sub Trier_GPS()

Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "Classement des feuilles"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Selon quelle cellule classer les feuilles ?", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
    For j = i To Application.Worksheets.Count
        If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
            Application.Worksheets(j).Move Before:=Application.Worksheets(i)
        End If
    Next
Next
Application.ScreenUpdating = True
End Sub

Sub Trier_GPS()

Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "Classement des feuilles"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Selon quelle cellule classer les feuilles ?", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
With ThisWorkbook
    For i = 2 To .Sheets.Count
        If NumToString(.Sheets(i).Range(WorkAddress)) < NumToString(.Sheets(i - 1).Range(WorkAddress)) Then
         .Sheets(i).Move Before:=.Sheets(i - 1)
         i = i - 2
        End If
        If i < 1 Then i = 1
    Next
End With

Application.ScreenUpdating = True
End Sub