Sub lancer_commande()
Dim resultat As Variant
Set wshell = CreateObject("WScript.Shell")
Set wshellresult = wshell.exec("powershell (Get-ChildItem c:\users\monuser\desktop | Select-Object name, @{N='date de creation' ; E={$_.CreationTime.ToString('MM/yyyy')}})")
result = wshellresult.stdout.Readall
Range("A1").Value = resultat
End Sub