Salut, tu peux utiliser la fonction Dir(), ca t'éviteras de mettre une référence à "Ms Scripting Runtime" :D , exemple : Disons que le programme stock les fichiers listés dans une listbox nommée "List3" Dim NomFichier as string Dim NomDossier as string NomDossier = "K:\9999\etude\" NomFichier = Dir(NomDossier & "*.*") Do While NomFichier <> "" List3.Additem NomFichier NomFichier = Dir Loop Et voilà, par contre ca ne liste pas les sous-dossiers. Pour comparer ta nouvelle liste de fichier à l'ancienne tu peux par exemple stocker ta liste de fichiers dans un fichier texte, comme ca lorsque que tu veux faire ta comparaison tu charge fichier texte dans "List2", ensuite tu liste les fichiers de ton dossier dans "List3", et tu n'a plus qu'a comparé "List2" et "List3". A la fin enregistre ta nouvelle liste de fichier dans ton fichier texte. voilà, @+