Fiche à renvoyer

Bonjour,
Me revoici avec une dernière question.
J'arrive à créer un dossier sur le bureau par Vba grâce a ce forum.
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub ess() Const Cible = &H10 'Bureau Dim objShell As Object Dim objFolder As Object, objFolderItem As Object Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(Cible) Set objFolderItem = objFolder.Self MkDir objFolderItem.Path & "\" & "Fiches à renvoyer" End Sub
Maintenant, comment dire par Vba de compresser ce dossier ?
En vous remerciant.