Création d'un lien Hypertexte dans un mail

Sub EnvoiMail_Outlook()
'Creation de l'objet e-mail
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olmailItem)
'Caractéristiques de l'e-mail
With olmail
.To = ""
.CC = ""
'Affiche le nom comme objet du message
.Subject = ActiveWorkbook.FullName
.Body = "Client : " & Sheets("FICHE").Cells(8, 2).Value & vbCrLf _
& "Utilisateur : " & Sheets("FICHE").Cells(11, 2).Value & vbCrLf _
& "Contact : " & Sheets("FICHE").Cells(14, 2).Value & vbCrLf & vbCrLf _
& ActiveWorkbook.FullNameURLEncoded & vbCrLf & vbCrLf _
& "Pour le bon traitement de la commande client," _
& "voici la liste des informations bloquantes :" & vbCrLf & vbCrLf _
& "- " & Sheets("FICHE").Cells(23, 1).Value & vbCrLf _
& "- " & Sheets("FICHE").Cells(23, 4).Value & vbCrLf _
& "- " & Sheets("FICHE").Cells(24, 1).Value & vbCrLf _
& "- " & Sheets("FICHE").Cells(24, 4).Value & vbCrLf _
& "- " & Sheets("FICHE").Cells(25, 1).Value & vbCrLf _
& "- " & Sheets("FICHE").Cells(25, 4).Value & vbCrLf _
& "- " & Sheets("FICHE").Cells(26, 1).Value & vbCrLf _
& "- " & Sheets("FICHE").Cells(26, 4).Value & vbCrLf _
& "- " & Sheets("FICHE").Cells(27, 1).Value & vbCrLf _
& "- " & Sheets("FICHE").Cells(27, 4).Value & vbCrLf _
& "- " & Sheets("FICHE").Cells(28, 1).Value & vbCrLf _
& "- " & Sheets("FICHE").Cells(28, 4).Value & vbCrLf _
& "- " & Sheets("FICHE").Cells(29, 1).Value & vbCrLf _
& "- " & Sheets("FICHE").Cells(29, 4).Value & vbCrLf _
& vbCrLf _
& "Merci de me répondre dans les plus brefs délais"

'Pièces jointes si il y a lieu
'.Attachments.Add "C:\PGI\Résultats.xls"
'Remplacez .Display par .send pour envoyer directement l'e-mail sans l'afficher dans Outlook
.Display
End With
End Sub