Enregistrer en pdf un lien

Bonjour,

J'ai créé une macro me permettant d'ajouter dans une cellule le lien d'un document (Photo) et je souhaiterai par la suite que cette photo soit enregistrée dans un fichier précis au format PDF. Il y a-t-il un moyen de le faire sous VBA ?

Voici le code utilisé :

Sub Insererlien()

Dim Retour As Variant
Dim Fichier As String
Dim Destination As String

Retour = Application.GetOpenFilename("All Files (*.*),*.*", Title:="Sélection du fichier", MultiSelect:=False)

    If Retour <> False Then

Fichier = Retour

ActiveCell.Value = Fichier

    Else

    End If

For Each xcell In Selection
    ActiveSheet.Hyperlinks.Add Anchor:=xcell, Address:=xcell.Formula
    Next xcell

'Cette partie ne fonctionne pas '

    Destination = "C:\Users\mathis.godu\Documents\PDF chantier\FIC"
    FileCopy Fichier, Destination

    'Enregistrer au format PDF le lien ajouté'

End Sub

Merci d'avance,

Mathis GODU