Lister fichiers sous vba

Option Explicit
'

Const cteRepertoire = "C:\Divers\"
Const cteExcel = ".xls"
'

Sub ParcoursDossier()
    
    Dim varFichier As Variant, ListeFichiers As String
    
    ListeFichiers = ""
    varFichier = Dir(cteRepertoire & "*" & cteExcel, vbDirectory)
    Do While varFichier <> ""
        If ((varFichier <> ".") And (varFichier <> "..")) Then
            If Not ((GetAttr(cteRepertoire & varFichier) And vbDirectory) = vbDirectory) Then
                ListeFichiers = ListeFichiers & vbLf & varFichier
            End If
        End If
        varFichier = Dir
    Loop
    MsgBox ListeFichiers
    
End Sub
'