Problème avec une macro

Bonjour,
voilà j'ai une macro qui devrait me permettre d'enregistrer une feuille d'un fichier dans le même dossier comme un nouveau fichier excel ( jusque là çà marche)et en même temps copier une cellule, qui devient un lien vers le nouveau fichier créer, dans un tableau ( là elle bloque au lien hypertexte

Sheets("facture TVA").Copy '
Onglet = Range("A1").Value
ActiveSheet.Name = Onglet 'Nouvelle feuille =
Classdest = Range("C9") & ".xls "

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Classdest

ActiveWorkbook.Close
'and
Sheets("facture tva").Select
'and
Sheets("facturier sorties").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Hyperlinks.Add Anchor:=Cells(Ligne, 1), _
Address:="", _
SubAddress:= Classdest & "'!A1", _
TextToDisplay:=Classdest
Cells(Ligne, 2) = Sheets("facture TVA").Range("C7")
Cells(Ligne, 3) = Sheets("facture TVA").Range("G7")
Cells(Ligne, 4) = Sheets("facture TVA").Range("C11")
Cells(Ligne, 5) = Sheets("facture TVA").Range("J32")
Cells(Ligne, 6) = Sheets("facture TVA").Range("F31")
Cells(Ligne, 7) = Sheets("facture TVA").Range("J28")
Cells(Ligne, 8) = Sheets("facture TVA").Range("J29")
Cells(Ligne, 9) = Sheets("facture TVA").Range("J30")
'and
Sheets("facture TVA").Select