Bonjour,
un exemple de caode à Modifier/Tester :
Sub Copie_Fichier()
Dim fso As Object, Src$, Dest$, Fich$
Set fso = CreateObject("Scripting.FileSystemObject")
' Chemin d'accès de la Source
Src = "C:\Users\Desktop\"
' Chemin d'accès de la Destination
Dest = "C:\Users\"
' Nom du fichier à copier
Fich = ThisWorkbook.Sheets("Feuil1").Range("C6").Value
' Copi du Fichier
fso.CopyFile Src & Fich, Dest & Fich
End Sub
Dis moi si tu as des question,
Pense à modifier les chemin d'accès,
Cordialement,
RemBabar