Comment envoyer une seule feuille en PJ

Salut tt le monde
actuellement je cherche un macro pour envoyer la feuille active d un classeur en PJ via outlook
j ai bqp tenté mais je trouve pas la bonne formule VBA, ci apres ce qui j'ai trouvé mais ca marche pas

Sub MSGENFR()



ActiveWorkbook.SaveAs Range("B9")



Dim OutApp As Object

Dim OutMail As Object



Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)



On Error Resume Next

With OutMail



.To = ""

.CC = ""

.BCC = ""

.Subject = ""

.Body = "Bonjour," & vbNewLine & _

"" & vbNewLine & _

"Vous trouverez ci-joint la confirmation de traitement du fichier " + Range("b9") & vbNewLine & _

"" & vbNewLine & _

"En espérant le tout à votre entière satisfaction, n'hésitez pas à communiquer avec nous pour toute information supplémentaire." & vbNewLine & _

"" & vbNewLine & _

"L'équipe du Service de multipaiement interdevises." & vbNewLine & _

"" & vbNewLine & _

"The Intercurrency Multipayment Service team."

.ActiveSheet.Copy

.ActiveSheet.Add Feuil1



.DISPLAY



End With

On Error GoTo 0



Set OutMail = Nothing

Set OutApp = Nothing

quelqu un pourraient m aider vp