copie d'une liste de fichier dans nouveau dossier

Bonjour à tous,
J'ai récupéré un listing de fichier dans Excel en collone A, et je voudrais copier ces fichiers dans un nouveau repertoir dont le chemin est défini en collone C , en collone B j'ai le chemin complet du fichier.
J'ai fait une Macro mais elle ne fonctionne pas biens:

Sub Copie_New_File()
'
' Fichiers Modifie Macro
' Macro enregistrée le 29/01/2009 par Franck
'
Dim derligne As Long, Source As String, Destination As String, Creer_dossier As sting

With ThisWorkbook.Worksheets("Nouveaux_Fichiers")
'Détermine le numéro de la dernière ligne remplie en feuille Nouveaux
derligne = .Range("A65536").End(xlUp).Row + 1
'Pour chaque ligne remplie en feuille Nouveaux_Fichiers
For i = 1 To derligne
' Définit le nom et le chemin du fichier source.
Source = Range("A" & i).Value
' Définit le nom du fichier et le nouveau chemin cible.
Destination = Range("B" & i).Value
' creer le nom du repertoir du nouveau chemin cible.
Creer_dossier = Range("C" & i).Value
MkDir "Creer_dossier"
' Copie le fichier source dans le fichier cible.
FileCopy Source, Destination
Next i
End With
'
End Sub

J'ai des erreur d'accès chemin fichier,pouvez vous m'aider Merci