Set FSO = CreateObject("Scripting.FileSystemObject") dim ComptRep Rep = InputBox("Veuillez entrer le repertoire à analyser:") Scan Rep msgbox ComptRep Sub Scan(Repertoire) Set f = FSO.GetFolder(Repertoire) Set sf = f.SubFolders For Each f1 In sf Scan f1.path ComptRep = Comptrep + 1 Next End Sub