Empêcher l'ordre alphabétique dans l'affichage d'une ListBox

Bonsoir, toutes et tous,

J'ai un UserForm Onglets qui m'affiche une liste avec le nom des feuilles,

Ces feuilles représentent les mois d'un calendrier

Le nom de ces feuilles, s'affiche dans un ordre alphabétique, or je souhaiterais voir ces noms dans un ordre chronologique .

Que dois-je changer au code ci-joint ? mon fichier pèse 10 Mo

Merci de votre aide

Amicalement

Pierrot

 Private Sub UserForm_Initialize()
Dim I As Integer
Dim Encore As Boolean
Dim Temp As String

  With Me.ListBox1
    For I = 2 To Sheets.Count
      .AddItem Sheets(I).Name
    Next I
    If .ListCount < 2 Then Exit Sub
    Do
      Encore = False
      For I = 0 To .ListCount - 2
        If .List(I) > .List(I + 1) Then
          Temp = .List(I)
          .List(I) = .List(I + 1)
          .List(I + 1) = Temp
          Encore = True
        End If
      Next I
    Loop Until Encore = False
  End With

End Sub

Bonsoir,

La blague ! Tu évites de les trier !

Tu supprimes de : if .Listcount>2... jusqu'à Loop Until...

Cordialement

Bonsoir, MFerrand

Un tout grand merci, de plus ça marche

j'ignorais que ces lignes de code effectuais le tri,, je suis belge moi.

c'est beaucoup plus simple pour la lecture de la liste

Bonne soirée

Amicalement

Pierrot