Créer une instance Excel et copier les données

Bonjour à tous, j'ai un code qui ne répond pas à mes attentes, merci de m'aidé.

voici mon code

Private Sub cmd_Extraire_Click()

Dim xlApp As Excel.Application

Dim xlBook As Workbook

'ici je selectionne les données de la feuille que je veu transferer sur l'instance qui doit etre créée

With Worksheets("Alarmes")

Range("A2:J15").Select

Selection.Copy

Application.CutCopyMode = False

Selection.Copy

End With

Set xlApp = CreateObject("Excel.Application")

'On ajoute un classeur

Set xlBook = xlApp.Workbooks.Add

'On donne un nom au classeur

xlBook.SaveAs (CheminCompletClasseurSt)

'On rend le classeur visible

xlApp.Visible = True

'Ici je voulais coller la copie faite sur l'autre instance qui a le bouton pour créer la seconde

ActiveSheet.Paste

Range("A1:J11").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Columns("D:D").EntireColumn.AutoFit

Columns("E:E").ColumnWidth = 20.29

Columns("E:E").ColumnWidth = 25.29

Rows("1:1").RowHeight = 36

Rows("1:1").RowHeight = 25.5

Columns("D:D").ColumnWidth = 14.86

Columns("D:D").ColumnWidth = 20.43

Columns("D:D").ColumnWidth = 20.57

Columns("D:D").ColumnWidth = 22.43

Columns("E:E").ColumnWidth = 25.14

Columns("F:F").ColumnWidth = 12

Columns("F:F").ColumnWidth = 21

End Sub

encore merci de l’intérêt que vous pourrais bien accordé à l'examen de ce code