Macro débutant

Private Sub Tri()

'Tri des feuilles, dans l'ordre alphabétique :
On Error GoTo TriageErreur
Dim j As Integer
Dim i As Integer
Dim PremiereFeuille As Integer
Dim DerniereFeuille As Integer
    PremiereFeuille = 4
    DerniereFeuille = ActiveWorkbook.Worksheets.count
    For i = PremiereFeuille To DerniereFeuille
        For j = i To DerniereFeuille
                If UCase(SupprimerDiacritique(Worksheets(j).Name)) < UCase(SupprimerDiacritique(Worksheets(i).Name)) Then
                    Worksheets(j).Move Before:=Worksheets(i)
                End If
        Next j
    Next i
'Exit Sub
TriageErreur:
    'CODE en cas d'erreur


End Sub

Function SupprimerDiacritique(Texte As String)
Dim LettreD As String
Dim LettreN As String
Dim TexteTemporaire As String
Dim i As Long

'Remplacement des lettres avec caractère
Const LettresDiacritique = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝŸàáâãäåçèéêëìíîïñòóôõöùúûüýÿ"
Const LettresNormales = "AAAAAACEEEEIIIINOOOOOUUUUYYaaaaaaceeeeiiiinooooouuuuyy"
TexteTemporaire = Texte
For i = 1 To Len(LettresDiacritique)
    LettreD = Mid(LettresDiacritique, i, 1)
    LettreN = Mid(LettresNormales, i, 1)
    TexteTemporaire = Replace(TexteTemporaire, LettreD, LettreN)
Next
SupprimerDiacritique = TexteTemporaire
End Function

PremiereFeuille = 4

PremiereFeuille = 2