Adresse mail dans une macro

Bonjour, merci pour le retour mais j'ai du mal avec le lien hypertex, qui ne fonctionne pas.
Est-il possible de faire une macro avec une adresse mail?
Cela fonctionne quand je fais la macro, mais quand je la colle à un bouton, si je clique sur le bouton l'adresse mail à disparue ainsi que le texte du mail.
Merci pour votre aide.
Bien à vous

comme ceci:

Option Explicit
Private Sub CommandButton1_Click()
MailTo
End Sub
Sub MailTo()
    Dim sLien As String
     sLien = "mailto:" & Range("A1") & "?" 'Addresse : une ou plusieurs adresses e-mail valides séparées par un point-virgule. N'utilisez que des caractères autorisés. Utilisez &nbps; pour les espaces. Seul ce paramètre est obligatoire en A1
    sLien = sLien & "Subject=" & Range("A2") 'Subject : le texte qui apparaîtra dans l'objet du message.en A2
    sLien = sLien & "&Body=" & Range("A5") 'Body: le corps du message..en A5
    If Range("A3") <> "" Then sLien = sLien & "&cc=" & Range("A3") 'CC : l'adresse à inclure dans la section "cc" (copie à)en A3
    If Range("A4") <> "" Then sLien = sLien & "&bcc=" & Range("A4") 'BCC : l'adresse à inclure dans la section "bcc" (copie cachée à). en A4
    ActiveWorkbook.FollowHyperlink sLien
End Sub

@+ Le Pivert