Envoyer feuille excel par mail

Bonjour,

Je souhaite envoyer une feuille spécifique d'un classeur excel.
J'ai cette macro qui marche bien, mais je souhaiterai rajouter une personne en copie du message et un texte.

Sub Test()
'
' Test Macro
' Macro enregistrée le 21/07/2011 par Virginie

Dim Dest As String, Sujet As String
Sheets("DR").Select
ActiveSheet.Copy
Dest = "xxxxxxxx@xxxxxxx.fr"
Sujet = "xxxxxxxxxxx"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

Merci d'avance pour votre aide