Microsoft 365 Envoi EMAIL en automatique

Bonjour,
J'aimerais envoyer une feuille Excel par mail en .PDF
J'ai enregistré, en auto, ce code :

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"C:\Users\ALBERF~1\AppData\Local\Temp\Rapport Modelage Raffaello.pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False _
, OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show

Cela fonctionne mais je souhaite avoir les champs suivants remplis :
To = ActiveCell.Value
Subject = Range("A2").Value
Body = Range("A4").Value

Je n'y parviens pas !
Merci pour votre aide,
Famu.