Permission refusée

Bonjour,

Je viens vous déranger une fois de plus, pour avoir de vos connaissances.

Voilà mon problème, quand j'exécute mon code un message s'affiche en m'indiquant ceci :

Erreur d'exécution '70':

Permission refusée

Voici la partie de mon code qui où s'affiche le problème.

          'Test les différents états de dossiers pour agir en conséquence
    If (Range("D2") = "En cours") Then
        'Enregistre le fichier dans NouvRepertoire
        ActiveWorkbook.SaveCopyAs Filename:=NouvRepertoire & nom
        'Tempo 1 secondes
        Application.Wait Time + TimeSerial(0, 0, 1)
        'Supprime le fichier dans l'ancien repertoire (Repertoire)
        Kill Repertoire & nom
    End If

Je vous met également les déclarations même si, je pense, qu'il n'y en a pas besoin.

    'Déclarations des différentes variables
    Dim Fichier As String
    Dim Repertoire As String
    Dim NouvRepertoire As String
    Dim NouvRepertoireFini As String
     
    'Obtient le nom du fichier
    nom = ActiveWorkbook.Name
    
    'Initialisation des variables avec les chemins dossiers
    Repertoire = "C:\Users\Admin\Desktop\Projet Virtual Space\En attente\"
    NouvRepertoire = "C:\Users\Admin\Desktop\Projet Virtual Space\En cours\"

Donc le problème vient du Kill que j'utilise ... Après avoir cherché sur internet j'ai trouvé pleins de truc, mais je dois avouer que je n'y ai rien compris. Alors si quelqu'un pouvait m'expliquer le problème et m'apporter une réponse je lui en serai reconnaissant.