Problème d'enregistrement d'une copie Excel en VBA

Bonjour à tous,
J'ai créé une macro qui vise à enregistrer en PDF une copie d'une feuille d'un classeur EXCEL (EXCEL2010). Mon problème est que celle-ci créée bien la copie PDF mais elle créée aussi une autre copie en EXCEL que je ne désire pas. Je cherche depuis plusieurs jours une solution pour empêcher cette dernière ou, à défaut, la supprimer automatiquement mais je n'y parviens pas. Auriez-vous une solution ???
Voici le code :
1 - celui de la macro qui crée la copie et l'enregistre après avoir ôter la protection du fichier source,
2 - celui de la macro qui appelle l'enregistrement et par la même la première macro.
(J'ai décomposé les deux de manière à ce que celle qui appelle l'enregistrement puisse également, en d'autres circonstances, appeler d'autres macros qui traitent d'autres sujets autour de l'enregistrement) et qui remet en place la protection en final.

1 -
Sub Copier_enregistr_CHIFFRAGE_PDF()
ActiveSheet.Unprotect ("TOTO") 'On enlève la protection de la feuille "GRILLE DE CHIFFRAGE"
Dim NomDeSauvegardePDF, NomSauvePDF
Application.EnableEvents = False
ThisWorkbook.Worksheets("GRILLE DE CHIFFRAGE").Copy
With ActiveWorkbook
Dim s As Object
'suppression des boutons de commande
'Bouton "NOUVEAU CHIFFRAGE"
For Each s In ActiveSheet.Shapes
If s.TopLeftCell.Address = "$N$18" Then
s.Delete
End If
Next s
'Bouton "ENREGISTRER COPIE PDF"
For Each s In ActiveSheet.Shapes
If s.TopLeftCell.Address = "$N$21" Then
s.Delete
End If
Next s
'suppression des macros
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With

'Suppression des formules
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Cells(1, 1).Select


'definition du nom du fichier
NomDeSauvegardePDF = ActiveWorkbook.Sheets("GRILLE DE CHIFFRAGE").Range("A5").Text

'enregistre la copie sous le nom contenu dans la cellule A5 de la feuille "GRILLE DE CHIFFRAGE" du fichier Source à un
'emplacement choisi par l'utilisateur
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomDeSauvegardePDF, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
If NomSauvePDF = False Then Exit Sub


End With

Exit Sub

Application.EnableEvents = True

End Sub

2 -

Sub Confirmation_enregistrement()
'Demande confirmation pour lancer la procédure d'enregistrement
Select Case MsgBox("Êtes-vous sûr de vouloir enregistrer ce chiffrage ?", vbYesNo, "Enregistrement")

Case vbYes
' Procédure si click sur Oui
'Combine dans l'ordre la macro et les instructions suivantes
Call Copier_enregistr_CHIFFRAGE_PDF
ActiveWorkbook.Close True
'On remet la protection avec mot de passe de la feuille "GRILLE DE CHIFFRAGE"
ActiveSheet.Protect Password:="TOTO", DrawingObjects:=True, Contents:=True, Scenarios:=True

Case vbNo
'procédure si click sur Non
End Select
End Sub

Merci d'avance pour votre aide.

BING 02