Private Sub ListeFichiers(sRep$, ListeFic$)
Dim Ret
Ret = Shell("powershell.exe Write-Host (get-childitem " & sRep & " -recurse | select-object DirectoryName,Name | where { $_.DirectoryName -ne $NULL } | Export-CSV " & sRep & "\" & ListeFic & ")", vbHide)
End Sub