Private Sub CommandButton1_Click()
Dim Dossier As Object, Fichier As Object, Sousdossier As Object
Dim Chemin As String
Dim I As Long
d = Range("B65536").End(xlUp).Row
Set plageE = Range("B1:B" & d)
plageE.ClearContents
'Chemin du dossier à analyser (à adapter au besoin)
Chemin = ThisWorkbook.Path
'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
' Boucle sur les fichiers
For Each Fichier In Dossier.Files
I = I + 1
'Cells(I, 2) = Fichier.Name ' Nom du fichier
Cells(I, 2) = Mid(Fichier.Name, 1, InStrRev(Fichier.Name, ".") - 1)
Next
For Each Sousdossier In Dossier.subfolders
For Each Fichier In Sousdossier.Files
I = I + 1
Cells(I, 2) = Mid(Fichier.Name, 1, InStrRev(Fichier.Name, ".") - 1)
Next
Next
SupprimerLignesDoublons
Range("B1").Select
End Sub