Suppression dossier présent à l'écran

Sub SupDossierzip()   'TEST ESSAI
    Kill ("C:\userprofiles\"NouvelFiche.zip"
End Sub

Private Sub SupDosFi()
Dim bureau$, Dossier$, zip$, fichier$
    bureau = CreateObject("WScript.Shell").SpecialFolders("desktop") & "\"
    Dossier = bureau & "NouvelFiche\"
   zip = bureau & "NouvelFiche.zip"
   If Dir(zip, vbArchive) <> "" Then Kill zip
        If Dir(Dossier, vbDirectory) <> "" Then
          fichier = Dir(Dossier & "*.*")
                Do While fichier <> ""
                  Kill Dossier & fichier
                  fichier = Dir
                Loop
          RmDir Dossier
        End If
End Sub