Aide macro email

[rachid9401]

bonjour j'ai un petit soucis avec ma macro, et j'aurai besoin d'aide voilà ma macro :
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("b24")
MailCc = Range("B25").Value
Subj = Range("b27")
Msg = Range("B26")
Fichier = "c:\essai.xls"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

sur cette macro j'aimerai bien ajouter des adresses mail en copie, ces mails sont dans une case
et aussi ajouté dans cette macro l'envoye d'un fichier qui serait sur c:\
merci d'avance