Déplacer un liste de fichier d'un répertoire à un autre

Bonjour à tous,

J'ai cherché sur votre forum des macros similaires, mais je n'ai pas réussi à les adapter...

Je souhaite déplacer des fichier excel d'un répertoire A vers un répertoire B, suivant une liste de nom de fichier défini en colonne A, plus ou moins grande. Quelqu'un peut-il m'aider ?

Merci d'avance !

bonsoir,

une proposition

Sub aargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    repo = Cells(1, 2)
    repd = Cells(2, 2)
    For i = 5 To dl
        fichier = Cells(i, 1)
        Name repo & "\" & fichier As repd & "\" & fichier
    Next i
End Sub

C'est parfait merci beaucoup !