[MichelXld]

bonsoir


Tu peux tester

    Dim Chemin As String, Fichier As String
    
    'Définit le répertoire contenant les fichiers
    Chemin = "C:\dossier\"
    
    'Boucle sur tous les fichiers xls du répertoire.
    Fichier = Dir(Chemin & "*.xls")
    'Utilise la syntaxe suivante pour boucler sur tous les types de fichiers:
    'Fichier = Dir(Chemin & "*.*")
    
    Do While Len(Fichier) > 0
        ComboBox1.AddItem Chemin & Fichier
        Fichier = Dir()
    Loop

Bonne soirée
MichelXld