Importer liste de fichiers dans un tableur ?

Sub lancer_listing()
Dim suff As String
suff = InputBox("introduire lettres du suffixe des fichiers recherchés" _
            & vbLf & "(sans le point devant)")
 If suff = "" Then: Exit Sub
lister_suivant_suffixe driver, suff
End Sub


Sub lister_suivant_suffixe(partition As String, suffixe As String)
Dim fich As String, Chemin As String
Dim lig As Long
'fige le défilement de l'écran
Application.ScreenUpdating = False

'sélectionne le dossier des ".avi"
Chemin = selectionner_dossier(partition)
If Chemin = "" Then: Exit Sub
' et force dans le répertoire de travail
ChDir Chemin

'écrit le titre en A1 de la feuille active
With Cells(1, 1)
    .Value = "liste des fichiers " & suffixe & " dans le dossier " & Chemin
    'facultatif gras italique bleu
    .Font.FontStyle = "Gras italique"
    .Font.ColorIndex = 11
End With


'filtre sur les fichiers du type du suffixe
fich = Dir("*." & suffixe)
lig = 2
'recherche les fichiers correspondants au filtre de recherche
While fich <> ""
    'écrit le nom du fichier dans la feuille active
    Cells(lig, 1) = Left(fich, Len(fich) - (Len(suffixe) + 1)) 'ecriture du nom du fichier sans le suffixe
    lig = lig + 1
     'affecte le fichier suivant (utilisation du joker " * " utilisé pour la def du 1° fichier)
    fich = Dir
  Wend
 If lig = 2 Then
    Cells(lig, 1) = "aucun fichier de type " & suffixe & " trouvé."
End If
' ajuste la largeur de colonne
Columns(1).AutoFit
End Sub


Function selectionner_dossier(racine As Variant)
'd 'après @+thierry pour XLD francisé par Michel_M pour CCM
Dim ObjShell As Object, ObjFolder As Object
Dim Message As String
Dim endroit As String

Message = "Sélectionnez le dossier concerné."
Set ObjShell = CreateObject("Shell.Application")
Set ObjFolder = ObjShell.BrowseForFolder(&H0&, Message, 1, racine)

    On Error Resume Next 'Si on sort sans sélection
    endroit = ObjFolder.ParentFolder.ParseName(ObjFolder.Title).Path & ""
    selectionner_dossier = endroit
End Function