Tri onglet spécial

Sub Tri_onglet_croissant()
    Dim Liste_N() As Long, NbO As Long, N As Long
    Dim Flg_F As Boolean, NmF As String
    
    NbO = Worksheets.Count
    ReDim Liste_N(1 To NbO)
    'Feuil ou pas dans le nom d'onglet
    If InStr(Worksheets(1).Name, "Feuil") > 0 Then
        Flg_F = True
        NmF = "Feuil"
    Else
        Flg_F = False
        NmF = ""
    End If
    'mise en tableau des noms d'onglet
    For N = 1 To NbO
        If Flg_F Then
            Liste_N(N) = CLng(Split(Worksheets(N).Name, "Feuil")(1))
        Else
            Liste_N(N) = CLng(Worksheets(N).Name)
        End If
    Next N
        Call ShellSort(Liste_N(), LBound(Liste_N), UBound(Liste_N))    'Proc récursive tri croissant
    'tristribution des onglets par nom numero croissant
    For N = 1 To NbO
        Worksheets(NmF & Liste_N(N)).Move After:=Sheets(Sheets.Count)
    Next N
End Sub
'--------------------------------
' Tri de Shell - Shell Sort
'--------------------------------
Public Sub ShellSort(t() As Long, Optional ByVal loBound As Long = -1, Optional ByVal upBound As Long = -1)
    Dim i As Long, j As Long, h As Long, v As Long
      
    If loBound = -1 Then loBound = LBound(t())
    If upBound = -1 Then upBound = UBound(t())
    h = loBound
    Do:        h = 3 * h + 1:
    Loop Until h > upBound
    Do
        h = h / 3
        For i = h + 1 To upBound
            v = t(i): j = i
            Do While t(j - h) > v
                t(j) = t(j - h): j = j - h
                If j <= h Then Exit Do
            Loop
            t(j) = v
        Next i
    Loop Until h = loBound
End Sub