MACRO : Envoyer vers destinataire en PDF

Bonjour,
Je souhaite réaliser une macro pour envoyer au destinataire (dont l'adresse figure en F6) une feuille de calcul XLS mais en format PDF.

J'ai enregistré simplement la macro pour "envoyer vers desinataire en pdf" :
Sub Macro3()
'
' Macro3 Macro
'

'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\DOCUME~1\bertrand\LOCALS~1\Temp\ARCO 725.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
ActiveSheet.Shapes("CommandButton2").Select
ActiveWorkbook.Save
Windows("devis.xls").Activate
Windows("ARCO 725.xls").Activate
End Sub

Mais quand j'exécute la macro, c'est le fichier .XLS qui s'expédie... Et je ne me suis pas encore inquiété du problème de l'adresse du destinataire...

Quelqu'un peut-il m'aider ?