Lister contenu dossier dans excel (VBA)

Sub ListeFichier() 
Dim oFso As FileSystemObject 
Dim oFolder As folder 

    Set oFso = New FileSystemObject 
    Set oFolder = fso.GetFolder("D:\Temp")  'Indiquer ici le chemin du repétoire à scanner 
    scan oFolder 

End Sub 

Public Sub scan(ByVal dossier As folder) 
Dim oFile As file 
Dim oCollec As Collection 
Dim i As Long 
Dim lig As Long 
Dim nomFichier As String 

    Set oCollec = New Collection 
    lig = 2 

    'On parcours le répertoire pour récupérer tous les fichiers 
    For Each oFile In dossier.Files 
        oCollec.Add oFile 
    Next 
     
    'Il est également possible de parcourir les sous dossiers 
    'Dim oSubFolder As Folder 
    ' For Each oSubFolder In dossier.SubFolders 
    '    scan oSubFolder 
    ' Next 
     
    For i = 1 To oCollec.Count 
        nomFichier = ReturnFileName(oCollec(i)) 
        If UCase(Mid(nomFichier, 1, 1)) = "A" Or UCase(Mid(nomFichier, 1, 1)) = "L" Or UCase(Mid(nomFichier, 1, 1)) = "M" Then 
            Worksheets(1).Range("A" & lig).Value = nomFichier 
            lig = lig + 1 
        End If 
    Next i 

End Sub 

'On Extrait le nom du fichier du chemin complet 
Public Function ReturnFileName(ByVal sChemin As String) As String 
    If InStr(sChemin, "\") = 0 Or Right(sChemin, 1) = "\" Then 
        ReturnFileName = "" 
        Exit Function 
    End If 
    ReturnFileName = Mid(sChemin, InStrRev(sChemin, "\") + 1) 
End Function