Private Sub CommandButton2_Click()
Dim XlApp As Excel.Application
Dim XlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set XlApp = CreateObject("Excel.Application")
XlApp.SheetsInNewWorkbook = 1
Set XlBook = XlApp.Workbooks.Add
TitreClasseur = InputBox("Titre du classeur : ", "IDENTIFICATION")
XlBook.SaveAs TitreClasseur
XlApp.Visible = True
TitreFeuille = InputBox("Titre de la feuille : ", "IDENTIFICATION")
Set xlSheet = XlBook.Worksheets(1)
xlSheet.Name = TitreFeuille
Set xlSheet = Nothing
XlApp.SheetsInNewWorkbook = 1
'Copier'
Windows("Fauillecalc.xls").Activate
Sheets("Calcul").Select
Sheets("Calcul").Range("G28:G39").Copy
'Coller'
Windows(TitreClasseur).Activate
Sheets(TitreFeuille).Select
ActiveSheet.Unprotect
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Protect
XlApp.SaveWorkspace TitreClasseur
XlApp.Quit
End Sub