set fso=createobject("scripting.FileSystemObject") dim Z B=inputbox("Répertoire où il faut effacer les fichiers sans le ' \ ' final ?","REPERTOIRE ?") fso.deletefolder(B),true msgbox"fichiers "+Z+" supprimés dans le répertoire "+B+"",vbinformation,"Job Done"