Sub test()
Dim i
Dim SourceFile, DestinationFile
SourceFile = "C:\Temp1\" ' Définit le nom du répertoire source.
DestinationFile = "C:\Temp2\" ' Définit le nom du répertoire cible.
' Copie des fichiers dans le répertoire cible.
For i = [A65536].End(xlUp).Row To 1 Step -1
FileCopy SourceFile & Cells(i, 1) & ".txt", DestinationFile & Cells(i, 1) & ".txt"
Next
End Sub