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