Enregistrer sous sans la macro

[reinruof77]

bonjour a tous et toutes
via un userbox je sauvegarde une feuille exell mais la sauvegarde ce fait avec la macro je suis donc obliger de convertir cette feuille en pdf.
voici le code:

"Private Sub CommandButton1_Click()
TextBox1.MaxLength = 8
Dim chem As String
Dim nom As String
chem = ThisWorkbook.Path & "\" 'à adapter
[A8] = TextBox1
[C8] = TextBox2
[C10] = TextBox3
[C11] = TextBox4
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
nom = Range("A8").Value & ".xls"
ThisWorkbook.SaveCopyAs (chem & nom)
Unload Me
UserForm1.Show
End Sub"
Comment faire pour que l'orsque j'enregistre je n'est plus la macro dans la feuille enregistrer ou enregitrer directement en PDF.

je suis ouvert a toute sugestion .
merci de votre aide