Sub Copier_Fichiers_Colonne_D()
Dim FSO As Object
Dim NomFich As Strin
Dim St As String, Ext As String
Dim Rep_Init As String, Rep_Fin As String
Dim Derlig As Integer
Dim i As Long
Rep_Fin = "C:\Destination\" ' adapater
Sheets("Données").Select
Derlig = Range("D" & Rows.Count).End(xlUp).Row
For i = 2 To Derlig
If Range("D" & i) <> "" Then
St = CStr(Range("D" & i))
Ext = Right(St, 4)
Rep_Init = Replace(St, CStr(Range("E" & i)) & Ext, "")
NomFich = Trim(Replace(St, Rep_Init, ""))
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile Rep_Init & NomFich, Rep_Fin & NomFich, True
Set FSO = Nothing
End If
Next i
End Sub