Dim strNomFich As String Dim strNomRep As String strNomRep = InputBox("Entrez le nom du répertoire à consulter", "Lire le contenu d'un répertoire", CurDir) If (LenB(strNomRep) > 0) Then strNomFich = Dir(strNomRep & "\*.*") Do While (LenB(strNomFich) > 0) List1.AddItem strNomFich strNomFich = Dir Loop 'Else End If