macro enregistrer : importer lignes de classeur 1 vers classeur 2 , et enregistrer

Private Sub Button_enregistrer_Click()

    Dim wkbSource As Workbook, wkbCible As Workbook, fichier As String
    Set wkbSource = ThisWorkbook
    Application.ScreenUpdating = False
    fichier = ThisWorkbook.Path
    
   
     Dim wb As Workbook
     Set wb = Workbooks.Add

'

'verification si classeur existe : ,

    Dim Fso As Object, x As Boolean
    Set Fso = CreateObject("Scripting.FileSystemObject")
   nom = ThisWorkbook.Path & "\a garder \"
    x = Fso.FileExists(nom)
    
'si classeur n'existe pas : creer New classeur

   If x = False Then wb.SaveAs nom
    
    ActiveWorkbook.SaveCopyAs (nom)
    
      Application.DisplayAlerts = False
   
    ActiveWorkbook.Close Savechanges:=True
  

    ActiveWorkbook.Save
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "Vous avez Créé le fichier et Archivé sous" & vbCrLf & nom, , "Traitement effectué"

End Sub