Sub Copier()
Dim dossier$, h As Hyperlink, fichier$, nom$
dossier = "D:\SELECTED FILES\" 'à adapter
On Error Resume Next
For Each h In ActiveSheet.Hyperlinks
fichier = h.Address
If Not fichier Like "?:\*" Then fichier = ThisWorkbook.Path & "\" & fichier
nom = Mid(fichier, InStrRev(fichier, "\") + 1)
FileCopy fichier, dossier & nom 'copie
Next
Shell Environ("WINDIR") & "\explorer.exe " & dossier, vbNormalFocus
End Sub