Private Sub CommandButton2_Click()
Dim i As Integer
Dim FileSource As String
Dim FileDest As String
For i = 2 To Range("A" & Range("A65536").Row)
FileSource = Sheets("Feuil1").Range("K" & i).Value
FileDest = Sheets(Feuil1).Range("L" & i).Value
FileCopy FileSource, FileDest
Next
End Sub