Bonjour à tous
J'avais pas vu la réponse, Merci Mytå !
Voici la macro adaptée qui fonctionne parfaitement :
Sub repCopierFichier()
Dim fso As Object, Dossier_cherché$, Dossier_récepteur$, Fichier_cherché$
Set fso = CreateObject("Scripting.FileSystemObject")
Dossier_récepteur = Range("F12")
Range("B12").Activate
Do Until ActiveCell = ""
Dossier_cherché = ActiveCell
Fichier_cherché = ActiveCell.Offset(0, 1)
fso.CopyFile Dossier_cherché & "\" & Fichier_cherché, Dossier_récepteur & "\" & Fichier_cherché
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Merci à tous de votre aide
jodo