Envoyer feuille excel par mail

[Fontel]

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