Hello stela,

Voici une petite macro qui devrait faire ce que tu veux.
- adapte la lettre de ton lecteur de CD et le choix du dossier (j'ai mis D:)
- adapte le nom de la feuille dans laquelle tu veux le résultat (j'ai mis "Feuil1")

Armojax.

Sub ListeFic()

    Dim ScanFic As Office.FileSearch
    Dim NomFic  As Variant
    Dim Diag    As String
    Dim Nbr     As Long
    Dim I       As Long
    
    Set ScanFic = Application.FileSearch
    
    With ScanFic
        .NewSearch
        .LookIn = "D:"      ' adapter le nom du lecteur
        .SearchSubFolders = True
        .FileType = msoFileTypeAllFiles
        Nbr = .Execute
        Diag = Format(Nbr, "0 ""fichiers trouvés""")
        
        I = 0
        For Each NomFic In .FoundFiles
            I = I + 1
            Sheets("Feuil1").Cells(I, 1).Value = NomFic ' adapter le nom de la feuille
        Next
        
        MsgBox Diag
        
    End With
        
End Sub