Bouton enregister ne fonctionne pas bien

Private Sub CommandButton4_Click()

Dim ch As String, client As String
Dim Num As String, NomFichier As String

client = TextBox2.Value  '----< le nom de la feuille enregistrée >----
Num = NumOffre.Value
ch = ActiveWorkbook.Path
NomFichier = "Offre_" & client & "_" & Num

Sheets(Array("Model")).Copy '----< la feuille enregistrée >----
ActiveWorkbook.CheckCompatibility = False
ActiveSheet.name = NomFichier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 ch & "\" & NomFichier & ".pdf", Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'ActiveWorkbook.SaveAs Filename:="C:\Users\JCGL\model.mht", FileFormat:=xlWebArchive
ActiveWorkbook.Close False

MsgBox "Offre enregistrée sous nom : " & NomFichier & ".Pdf"

End Sub[\CODE]