Lister les fichiers d'un répertoire

J'ai bien vu qu'il y avait déjà un code sur ce sujet dans le forum mais il emploi FileSearch qui n'est plus repris dans les versions actuelles,

Une autre façon de faire, et je pense plus simple.

Private Sub ListeNomFichier()
Dim Fichier, Lig As Integer
Dim CheminSource As String
    'Adapter le chemin
    CheminSource = "C:\répartoire\sous répertoire\*.xls"
    Fichier = Dir(CheminSource)
    Do While Fichier <> ""
        Lig = Lig + 1
        ActiveSheet.Cells(Lig, 1) = Fichier
        Fichier = Dir
    Loop
End Sub