Mettre en pièce jointe une feuille d'un classeur

Bonjour à tous,

j'aurai besoin d'aide, je souhaite envoyer un mail avec ce code qui me convient parfaitement, mais je souhaiterai en plus joindre au format Excel une copie d'une feuille de ce classeur appelé "formulaire" j'ai vu plusieurs sujets concernant ce cas mais malgré mes essais je ne trouve pas le code exact merci de votre aide

Option Explicit
Private Sub CommandButton1_Click()

Dim LeMail As Variant
Set LeMail = CreateObject("outlook.Application")

With LeMail.CreateItem(olMailItem)
.Subject = Range("b8")
.To = Range("A4")
.Body = Range("b10")
.Display

End With
End Sub

Bonjour Papitho,

Vous devriez trouver votre bonheur dans les codes de ce classeur

https://www.excel-pratique.com/fr/telechargements/utilitaires/pdf-email-vba-excel-no508

A+

Merci bruno M45 !

Bonjour Papitho