Macro switch entre 2 classeur

Bonjour la communauté,

Voici mon soucis je veux enregistré une partie de mon classeur dans un autre classeur avec un nom définis dans une cellule dans mon classeur contenant la macro.

Pour plus de compréhension voici la macro.

Sub SAVE()
'
' SAVE Macro
'

'
Dim NOM As String
NOM = Range("BA3")
Range("BA3").Select
Selection.Copy
Workbooks.Add
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.SaveAs Filename:=[A1].Value & ".xlsx"
Windows("devis.xls").Activate
Rows("11:65000").Select
Application.CutCopyMode = False
Selection.Copy
Windows("NOM").Activate
Range("A4").Select
ActiveSheet.Paste
ActiveWorkbook.Save
End Sub


Ma macro plante à la ligne que j'ai mis en gras et souligné pour résumé il ne re bascule pas sur le classeur 2 pour copier le lot de 2ème données quelqu'un peut-il m'aider ?