Adresse E-mail en copie

Bonjour a tous

Voici mon probléme. Comment faire pour mettre l'adresse qui se trouve en D2 en Copie et mettre mon classeur en fichier joint.

Sub EnvoiUnMail()
Dim mailad As String
Dim msg As String
Dim subj As String
Dim urlto As String
mailad = Range("D1") & ";" & Range("E1")
Copie = Range("D2")
subj = Range("D3")
msg = msg & Range("D4")
urlto = "mailto:" & mailad & Copie & "?subject=" & subj & "&body=" & msg
ActiveWorkbook.FollowHyperlink Address:=urlto & urltCc
End Sub

Bonne fete à tous