changer de dossier de sauvegarde

bonjour,
j'ai une macro qui enregistre une feuille d'un classeur comme nouveau fichier mais dans le même dossier où le classeur "source" se trouve comment faire pour enregistrer dans un autre dossier

Dim NomFeuille As String, i As Byte, Ligne As Integer
Sheets("facture TVA").Copy '
Onglet = Range("C9").Value
ActiveSheet.Name = Onglet 'Nouvelle feuille =
Classdest = Range("C9") & " " & Range("A1") & ".xls "
ActiveSheet.Shapes("Bouton 1").Delete
ActiveSheet.Shapes("Bouton 3").Delete
ActiveSheet.Shapes("Bouton 6").Delete
ActiveSheet.Shapes("Bouton 4").Delete
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Classdest

ActiveWorkbook.Close


Merci

Bpol