Dim objFSO

Set objFSO = CreateObject("Scripting.FileSystemObject")
Call objFSO.DeleteFolder ("C:\Mon répertoire", True)
Call objFSO.DeleteFile("C:\Emplacement fichier.ext")

Set objFSO = Nothing