envoi de classeur par mail via outlook express

Sub MailFichierOE()
'd'apres une macro de Laurent LONGRE transmise par MICHELXLD
Dim Dest As String, Sujt As String, Msg As String
Dim RepName As String
Dim copie As String
ActiveWorkbook.SaveCopyAs "C:\temp\test.xls"
RepName = "C:\temp\test.xls"
Dest = "[EMAIL="dest@free.fr"]dest@free.fr[/EMAIL]"
'noter le &cc= entre les differentes adresses en copie
copie = "[EMAIL="dest1@free.fr&cc=dest2@free.fr"]dest1@free.fr&cc=dest2@free.fr[/EMAIL]"
Sujt = "Test d'envoi d'un fichier avec Excel"
Msg = "Bonjour, Excel vous envoie un fichier avec Outlook Express"
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?cc=" & copie & "&subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & RepName & "~" & "%s"
End Sub