Option Base 1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Dossier As FileDialog, Fichier As FileDialog
Dim Destination As String
Dim Source() As String
Dim Fso As Object
Dim i As Byte
If Target.Address = '$N$23' Then
Set Fichier = Application.FileDialog(msoFileDialogOpen)
Fichier.Show
If Fichier.SelectedItems.Count = 0 Then Exit Sub
For i = 1 To Fichier.SelectedItems.Count
ReDim Preserve Source(i)
Source(i) = Fichier.SelectedItems(i)
Next i
Set Dossier = Application.FileDialog(msoFileDialogFolderPicker)
Dossier.Show
If Dossier.SelectedItems.Count = 0 Then Exit Sub
Destination = Dossier.SelectedItems(1) & '\\'
Set Fso = CreateObject('Scripting.FileSystemObject')
For i = 1 To UBound(Source())
'False pour ne pas ecraser les fichiers existants portant le meme nom
Fso.CopyFile Source(i), Destination, False
Next i
End If
End Sub