Feuille Excel en PDF

Bonjour à tous,

J'utilise une macro trouvé sur le net pour envoyer par mail une feuille Excel en format PDF. Celle-ci fonctionne comme je le veux mais un petit truc m'agace. En effet dans le fichier PDF on vois le bouton de la macro. Comment supprimé ce bouton via le code.

Voici le code en question

Sub Mail()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim S As Shape
Dim sNomFic As String, sRep As String, WshShell As Object

With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

' Créer une instance Windows Script pour retrouver le chemin du bureau
Set WshShell = CreateObject("WScript.Shell")
sRep = WshShell.SpecialFolders("Desktop")
Set WshShell = Nothing
' Définit le nom du fichier à enregistrer
sNomFic = "Stock piece.pdf"
' Enregistrer la feuille en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = "monadresse@mail.fr"
        .Cc = ""
        .Attachments.Add (sRep & "\" & sNomFic)
        .Subject = "Sujet à définir"
        .Display
    End With

With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
Kill (sRep & "\" & sNomFic)
End Sub

En piece jointe l'aperçu du fichier pdf

Bonjour,

Tu sélectionnes ton CommandButton, Format contôle, puis propriétés.

Pour terminer tu décoches < imprimer l'objet >.

N'oublie pas de clore le sujet.

Cdlt.

Nikel merci beaucoup pour ton aide apporté.