Envoyer par mail une page du classeur

Bonjour, bonsoir,

Je suis débutant sur excel et j'ai pour projet de réaliser un facturier automatique.

Je suis arrivé à une étape critique, envoyer ma page "Facture" par mail grâce à un btn d'envoi.

Après de nombreuses recherches et de nombreux échecs je suis arrivé à ouvrir ma messagerie Outlook insérer automatiquement le contenu, les adresses mail et le sujet. Me reste plus qu'a joindre la page.

Merci par avance à ceux qui pendront le temps de me lire et si possible de m'aider !

Voici mon code VBA :

Sub EnvoiMail()

'Déclarations'

Dim LeMail As Variant

Dim sFichier As String

Set LeMail = CreateObject("Outlook.Application")

Set MaFeuille = ThisWorkbook.Sheets("Facture")

Sheets("Facture").Select 'Nom exact la feuille

ActiveSheet.Copy 'crée une copie de la feuille active

'Caractèristique du mail'

With LeMail.CreateItem(olMailItem)

.Subject = MaFeuille.Range("D51") & Range("D2")

.To = MaFeuille.Range("D10").Value

.CC = MaFeuille.Range("D11").Value

.Body = MaFeuille.Range("D53").Value

.Display

End With

ActiveWorkbook.SendMail sFichier, Sujet, True

Application.DisplayAlerts = False

ActiveWorkbook.Close 'ferme la copie de la feuille active

Application.DisplayAlerts = True

End Sub