Copier des fichiers dans des répertoires distincts avec VBA ?

Sub move()
Dim Ancien As String, Nouveau As String, Rep As String, numero As Integer
' Ancien = chemin du fichier source
' Nouveau = chemin du fichier sible, avec le nouveau nom
' Rep = répertoire ou sera déplacé de fichier, sous son nouveau nom

numero = 1
Sheets("Feuil1").Range("A1").Select 'au desuus de la colonne des noms de fichier source

While numero <= 700
ActiveCell.Offset(1, 0).Range("A1").Select 'descend sur le chemin du fichier source suivant
Ancien = ActiveCell.Range("A1").Value 'enregistre le chemin du fichier source
ActiveCell.Offset(0, 1).Range("A1").Select 'va sur le nom du répertoire
Rep = ActiveCell.Range("A1").Value 'enregistre le nom du répertoire cible
ActiveCell.Offset(0, 1).Range("A1").Select 'va sur le chemin du fichier cible
Nouveau = ActiveCell.Range("A1").Value 'enregistre le chemin du fichier cible
ActiveCell.Offset(0, -2).Select 'revient sur la colonne des noms de fichiers source
MkDir Rep 'créée le répoertoire
Name Ancien As Nouveau 'déplace et renomme le fichier
numero = numero + 1 'incrémente le numéro de la ligne traitée
Wend ' stop au bout de 700

End Sub

Cliquez pour agrandir...

Merci beaucoup pour la réponse super-rapide,
C'est hélas tout à fait la réponse que je redoutais, car je ne comprends rien du tout, faute du connaissances élémentaires en VBA ...

Cliquez pour agrandir...