aide code VBA

dim dosFilm as string
dim FSO, dossier, fichier as object

'ouvre une boite de dialogue permettant d'indiquer le chemin du dossier contenant les films
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
dosFilm = Application.FileDialog(msoFileDialogFolderPicker).InitialFileName
'on libère la mémoire
Set Repertoire = Nothing

'definition des variables et indication du chemin du dossier contenant les fichiers films
Set FSO = CreateObject("Scripting.FileSystemObject")
Set dossier = FSO.GetFolder(dosFilm)
       
'boucle sur les fichiers films contenus dans le dossier
For Each fichier In dossier.Files
     'là, tu lui indiques d'inscrire à la bonne place Fichier.Name, mais tu auras le nom du film avec l'extension. 
     'Je n'ai pas su lui dire de ne pas mettre l'extension, donc perso, j'avais contourné le pb comme ça : 
     'Left(fichier.name, (Len(fichier.name) - lExtension)) avec lExtension = 4
next

Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
dosFilm = Application.FileDialog(msoFileDialogFolderPicker).InitialFileName
'on libère la mémoire
Set Repertoire = Nothing