Trie les onglets des feuilles d'un fichier ex

Bonjour à tous et toutes,

Permettez-moi de commencer ce post par vous souhaiter mes meilleurs pour l'année à venir. Que celle-ci vous apporte tt le bonheur du monde (avant ça fin ?))

J'ai trouvé sur le net cette macro (ci-dessous) qui trie les onglets d'un fichier. Je voudrais savoir si vous n'avez rien à redire à cette macro et en second, j'aimerais savoir s'il est possible de trier l'ensemble des onglets à l'exception de 3 feuilles nommés (date, bd_mcae et compl_info_parents). Ces feuilles doivent restés au début des onglets.

Voici la macro :
Sub TrieFeuilles()
Dim I As Integer
Dim J As Integer
Dim Min As Integer
Dim ModeCalcul As Integer
ModeCalcul = Application.Calculation
Application.Calculation = xlCalculationManual
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 me donner votre avis...très bonne soirée à tous et ttes..

Cdlmnt,

Berni//