envoyer classeur actif par mail

[nisuc]

bonjour
fort de mes recherches pour envoyer le classeur actif par mail, j'arrive à cette conclusion :

Sub envoimail()
Name = Range("b8")
Dim HyperLien As String, Objet As String, Corps As String
Objet = "blabla"
Corps = "blabla" & Chr$(11) & Name

Corps = Application.WorksheetFunction.Substitute(Corps, vbCrLf, "%0D%0A")
adresse = "blablabla@bla.com"

copie = "blabla@bla.com"

HyperLien = "mailto:" & adresse & "?c=" & adresse
HyperLien = "mailto:" & adresse & "?cc=" & copie
HyperLien = HyperLien & "&Subject=" & Objet '& " (à " & Time() & ")"
HyperLien = HyperLien & "&Body=" & Corps
ActiveWorkbook.FollowHyperlink HyperLien



End Sub

ça marche très bien mais il me manque l'essentiel : le pj (soit le classeur actif)

à l'aide
merci d'avance