Sub Deplacement_Bis()
Dim FichierOriginal$, FichierCopie$
Dim Chemin_Source$, Chemin_Desti$
Dim A As Long
Chemin_Source= "C:\toto" 'chemin à adapter
A = Range("F14").Value
Chemin_Desti= "C\titi" ' chemin à adapter
A = Range("F14").Value
B = Range("H14").Value
For K = A To B
FichierOriginal = Chemin_Source & "\" & Range("E" & K).Value
FichierCopie = Chemin_Desti & "\" & Range("I" & K).Value
Name FichierOriginal As FichierCopie
Next K
End Sub