Problème Macro excel 07

Bonjour a tous,

je suis étudiant, et dans le cadre d'un projet de stage, j'ai besoin de vous !

voici mon problème :
j'ai créé un fichier excel avec une base de données clients et produits pour générer des factures ...

puis créé une macro pour enregistrer chaque facture dans un document (premier bémol, je voulais l'exporter en .pdf mais en vain ...) donc mon soucis premier : enregistrer uniquement la feuille 1 du classeur dans le fichier créé ... je n'arrive pas à enlever (sauf manuellement = donc pas d'intérêt ...) les feuilles 2 et 3 ...

voici mon code :

Sub Enregistrement()
Dim Chemin$, Client$, Fichier$, Jour$
Chemin = "C:\Users\CR42S du 14 JUILLET\Desktop\wimkite shop\"

Jour = Format(Day(Now()), "00") & Format(Month(Now()), "00") & Year(Now)
Client = Range("E7")


Fichier = Client & ".xls"
If dir(Chemin & Jour, 16) = "" Then MkDir Chemin & Jour
ActiveWorkbook.SaveAs Chemin & Jour & "\" & Fichier

End Sub

étant un peu débutant dans ce domaine j'espère que vous pourrez m'aider ...
merci d'avance ...
toutes vos propositions sont les bienvenues (que se soit pour mon problème pdf ou d'enregistrement uniquement de la feuille 1 ...)