Comment récupérer la liste des fichiers d'un répertoire et l'afficher triée par ordre alphabétique dans une listbox sur un userform ?

Initialise ta liste avec la macro ci dessous :

Private sub UserForm_Initialize()  Dim Fs As FileSearch  Dim Dossier As String  Dim I As Integer  On Error Resume Next  Set Fs = Application.FileSearch  Dossier = "D:\MonDossier"  With Fs  .NewSearch  .Filename = "*.xls"  .LookIn = Dossier  .Search
subFolders = False
 .Execute msoSortByFileName, msoSortOrderAscending
  If .Execute > 0 Then
    With .FoundFiles
      For I = 1 To .Count
        Me.ListBox1.AddItem Dir(.Item(I))
      Next I
    End With
  Else
    MsgBox "Aucun classeur trouvés " & _
    "dans le dossier '" & Dossier & "'."
    Me.ListBox1.AddItem "Aucun classeur !"
  End If
 End With
 Set Fs = Nothing
 end sub