Problème de transfert pour archivage

Bonjour à tous,
Je ne m'en sort pas j'explique:
J'ais une macro qui test l'existence d'un sous répertoire et qui le crée si
il n'existe pas ceci fonctionne très bien mais je voudrais en même temps
prendre les fichiers qui se trouve dans un autre répertoire pour les copier
dans le nouveau puis les supprimer de l'ancien, j'ai bien essayé plusieurs
solutions (avec votre aide précieuse) mais sans succès je donne le code de ma
macro.
Merci de m'indiquer quelles lignes rajouter pour que tout fonctionne!

Sub ArchiverFichier()
Dim TestM
Dim Nrep As String


Nrep = "C:\Carte Total\Sauvegardes\" & JANVIER.Range("D7")

On Error GoTo creer
ChDir (Nrep)

MsgBox "Le répertoire" & JANVIER.Range("D7 ") & " Existe déjà",
vbInformation, "Erreur"
Exit Sub
creer:
TestM = MsgBox("le répertoire " & JANVIER.Range(" D7") & " va être créer",
vbOKCancel, "Nouveau répertoire")
If TestM <> 2 Then MkDir (Nrep)

End Sub

PS(j'ai essayer en y ajoutant ceci mais rien à faire:
Fichier = Dir(Rep & "*.xls")
Do While Fichier <> ""
FileCopy Rep & Fichier, Nrep & Fichier
Kill Rep & Fichier
Fichier = Dir()
Loop

--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous