Bonjour,
à tester,
Sub envoiMail()
fichier = "C:\Users\xxxxx\Documents\MonFichier PDF.pdf" 'à adapter
Set sh = ActiveSheet
Application.ScreenUpdating = False
sh.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=fichier, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Sheets.Add After:=Sheets(Sheets.Count)
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
For cp = .Item.Attachments.Count To 1 Step -1
.Item.Attachments(cp).Delete
Next cp
.Item.To = "xxxxxx@xxxxxxx"
.Item.Subject = "Test "
.Introduction = "Bonjour, ci-dessous un test VBA."
.Item.Attachments.Add fichier
.Item.Send
End With
Application.DisplayAlerts = False
ActiveSheet.Delete
sh.Activate
Application.ScreenUpdating = True
End Sub