[XL-2013] Aide sur une macro

Bonsoir

Je suis allé en formation excel et le formateur m'a donné cette macro
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub EnvoiUnMail() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = Range("d1") Subj = Range("d2") Msg = Msg & Range("d3") URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto End Sub
Je suis nul
J'ai créé cette macro et lorsque je la lance j'ai une erreur de débogage sur la ligne suivante,

Code:

ActiveWorkbook.FollowHyperlink Address:=URLto

Je comprends pas car elle a marché lors de la formation?

Merci