Envoyer un onglet en PDF

Bonjour je souhaiterai modifier cette ligne de code qui envoie en PJ mon classeur complet en XLS
Que dois je modifier pour envoyer que l'onglet "Classeur2" en PDF

merci

Application.Dialogs(xlDialogSendMail).Show arg1:=Sheets("PLC").Cells(48, 4).Value, arg2:="OT " & Sheets("PLC").Cells(19, 1).Value & " : PLC à valider - " & Sheets("PLC").Cells(2, 4).Value & " - " & Sheets("PLC").Cells(24, 13).Value & "€ (" & Sheets("PLC").Cells(3, 4) & ")"
End Sub

Bonjour,

Une piste (par Bruno) : https://www.excel-pratique.com/fr/telechargements/utilitaires/pdf-email-vba-excel-no508

Cordialement,