code pour tri de feuilles

Après une reconversion, je me mets à EXCEL depuis peu et au macros

Je voudrais trier les feuilles d'un classeur par ordre alphabétique...et mon code bloque (problème de compilation)

Sub Tri()
Dim I As Integer
Dim J As Integer
Dim Min As Integer
Dim ModeCalcul As Integer
ModeCalcul = Application.Calculation
Application.Calculation = xlCalculation
Application.ScreenUpdating = False
With ActiveWorkbook.Worksheets
For I = 1 To .Count - 1
Min = I
For J = I + 1 To .Count
If .Item(J).Name < .Item(Min).Name Then Min = J
Next J
If Min <> I Then .Item(Min).Move before:=Worksheets(I)
Next I
End With
Application.Calculation = ModeCalcul
Application.ScreenUpdating = True
End Sub

Merci de votre aide