Envoi PJ ciblée par lien hypertexte

Option Explicit
Sub Envoyer()
Dim OutApp As Object
Dim OutMail As Object
Dim Fichier$
  Fichier = Range("A1").Hyperlinks(1).Address 'A adapter
  Set OutApp = CreateObject("Outlook.Application")
  OutApp.Session.Logon
  Set OutMail = OutApp.CreateItem(0)
    With OutMail
      .To = "ton adresse mail" 'A adapter
      .Attachments.Add Fichier
      .Display      'Voir le message
      '.Send        'Envoi le message
    End With
  Set OutMail = Nothing
  Set OutApp = Nothing
End Sub