XL 2016 macro tri alphabétique des onglets

Sub tri_onglet()
    Option Compare Text
    Dim i As Integer, j As Integer, num As Integer, nom As String
    Dim modeleIndex As Integer, planningIndex As Integer
    modeleIndex = -1
    planningIndex = -1
  
    ' Tri des onglets par ordre alphabétique
    For i = 2 To Sheets.count
        For j = i + 1 To Sheets.count
            If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
                Sheets(j).Move before:=Sheets(i)
            End If
        Next j
    Next i
  
    ' Trouver les index de "modele" et "PLANNING"
    For i = 1 To Sheets.count
        If Sheets(i).Name = "modele" Then
            modeleIndex = i
        ElseIf Sheets(i).Name = "PLANNING" Then
            planningIndex = i
        End If
    Next i
  
    ' Déplacer "modele" au début
    If modeleIndex > 0 Then
        Sheets(modeleIndex).Move before:=Sheets(1)
    End If
  
    ' Déplacer "PLANNING" après "modele"
    If planningIndex > 0 Then
        Sheets(planningIndex).Move after:=Sheets(1)
    End If
End Sub

Option Compare Text

Sub TrierOnglets()
    Dim i As Integer
    Dim j As Integer
    Dim iMin As Integer
    
    Application.ScreenUpdating = False

    ' Déplacer les onglets "modele" et "PLANNING" en premier
    Sheets("modele").Move Before:=Sheets(1)
    Sheets("PLANNING").Move After:=Sheets("modele")

    ' Trier les autres onglets
    For i = 3 To Sheets.count
        iMin = i
        For j = i + 1 To Sheets.count
            If Sheets(j).Name < Sheets(iMin).Name Then
                iMin = j
            End If
        Next j

        If i <> iMin Then
            Sheets(iMin).Move Before:=Sheets(i)
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub