Remplir classeur Excel VBA

Bonjour,

Après avoir créé mon fichier Excel avec le code VBA suivant je voudrais remplir ce fichier en ajouter une ligne copier coller d'un autre classeur.

Est-ce que vous avez une idée

Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub AddNewWorkbook()
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
    xlBook.SaveAs ("Mon Classeur.xls")
    xlApp.Visible = True
    Set xlSheet = xlBook.Worksheets(1)
    xlSheet.Name = "Janvier"
    Set xlSheet = Nothing
    xlApp.SheetsInNewWorkbook = 3
    xlBook.Save
    xlBook.Close
    xlApp.Quit
End Sub