Lien hypertexte Outlook par macro

Alors essayer cette modif :

............................................  
With eMail
    .Display  ' ICI pour afficher la signature et la conserver
    .To = sDest
    .CC = sCopie
    .Subject = Objet
    .Importance = olImportanceHigh
    ' Corps du mail
    Set wdDoc = eMail.GetInspector.WordEditor
    Set rng = wdDoc.Content

    rng.Move 4, -1
    rng.Text = Texte(2)
    rng.Move 4, -1
    wdDoc.Hyperlinks.Add rng, cspath1
    rng.Move 4, -1
    rng.Text = Texte(1)

   '.Send     'Envoyer le message
    .Display 'pour afficher le message
End With

...........................................

Parfait, merci beaucoup pour le temps accordé !!