Bonsoir le forum
Bonsoir Claudy
Essaie ce code
je l'ai teste il fonctionne
Sub Macro1()
Sheets(1).Select
Columns('A:A').Clear
Range('A1').Select
Dim fs, Directory, Fichier, FichierContenu, i
Dim s()
Dim indice
Dim chemin
chemin = InputBox('Quel répertoire voulez vous lister?')
indice = 1
Set fs = CreateObject('Scripting.FileSystemObject')
Set Directory = fs.GetFolder(chemin)
Set FichierContenu = Directory.Files
For Each Fichier In FichierContenu
ReDim Preserve s(1 To indice)
s(indice) = Fichier.Name
indice = indice + 1
Next
Range('A1:A' & UBound(s)).Value = Application.Transpose(s)
Columns('A:A').EntireColumn.AutoFit
Sheets(1).Select
Range('A1').Select
End Sub
Par contre pour la suppression je ne sais pas
Bon courage pour ton projet
A+
Olivier