Ajouter un Numéro via cellule Q8 pour envoyer par courriel

Bonsoir à Tous,

J'ai ce code pour envoyer en attachement un feuille de calcul converti en PDF par courrier. Le code fonctionne bien. Le code sauvegarde le PDF sur mon bureau avec le nom RM, et l'insère au courriel.

Option Explicit
Sub Courriel_Send()

'Enregistre le Fichier Excel au Format PDF à l'Adresse Choisi'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Desktop\RM.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Dim OutApp As Object
Dim OutMail As Object
Dim Nom_Fichier As String
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "<H2><B>Besoin d'un Numéro de PO S.V.P. pour le RM</B></H2>" & _
"<H3><B>PIÈCE :  </B></H3>" & "<H3><B>COMPAGNIE :  </B></H3>" & "<H2><B>Merci</B></H2>"
On Error Resume Next
Nom_Fichier = "C:\Users\Desktop\RM.pdf"
With OutMail
.Display
.To = "test@gmail.com"
.CC = ""
.BCC = ""
.Subject = "Besoin d'un Numéro de PO S.V.P. pour le RM"
.Attachments.Add Nom_Fichier
.HTMLBody = strbody & "<br>" & .HTMLBody
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Dans la cellule "Q8", il y a un numéro qui s'ajoute à chaque fois qu'on rempli le formulaire.

J'aimerais si possible:

Quand le formulaire fasse une sauvegarde, qu'il l'enregistre avec le numéro de la cellule "Q8" (ici l'exemple de mon fichier 1979), et qu'il insère ce document au courriel.

Je joins mon fichier.

Merci

Jean