Sub DossiersFichiers(SourceFolderName As String)
Dim Fso As Object, SourceFolder As Object, SubFolder As Object
Dim i As Integer
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(SourceFolderName)
i = 4
'Cells(i, 20) = SourceFolder.Name
Cells(i, 1) = SourceFolder.Files.Count
For Each SubFolder In SourceFolder.SubFolders
i = i + 1
Cells(i, 20) = SubFolder.Name
Next SubFolder
End Sub
Sub Test()
DossiersFichiers = range ("G7").value
End Sub