VBA - Feuille en ordre croissant

Option Explicit 
Sub ranger() 
Dim tablo() 
Dim nbre As Byte, cptr As Byte, i As Byte, j As Byte, k As Byte 
Dim tmp0 As String 
' nombre de feuilles 
nbre = ThisWorkbook.Sheets.Count 

'construit un tableau t "nbre" d'éléments 
ReDim tablo(nbre - 1) 

'remplit le tableau avec le nom des onglets  
Do Until cptr = nbre 
    tablo(cptr) = Sheets(cptr + 1).Name 
    cptr = cptr + 1 
Loop 

'range le tableau dans l'ordre décroissant 
For i = 0 To nbre 
        j = i 
        For k = j + 1 To nbre - 1 
            If tablo(k) > tablo(j) Then j = k 
        Next k 
    If i <> j Then 
        tmp0 = tablo(j) 
        tablo(j) = tablo(i) 
        tablo(i) = tmp0 
    End If 
  Next i 
   
  'fige défilement de l'écran 
  Application.ScreenUpdating = False 
  'range les feuilles dans l'ordre décroissant 
 cptr = 0 
 For cptr = 0 To UBound(tablo) 
    Sheets(tablo(cptr)).Move before:=Sheets(nbre) 
Next 
   
End Sub