ouvrir un fichier excel et écrire dedans

Bonsoir tout le monde
Je travaille sur un projet trés compliquer mais bon comme un débutant en programmation j'arrive à résoudre mes difficultés mais il me reste qu'un seul truc c'est lorsque j'ouvre un fichier excel j'arrive pas à écrire dedans j'ai essayé pas mal de fois mais j'arrive pas, en faite j'ai des champs textbox que je dois les envoyer dans un fichier excel, voici le code de l'ouverture : voici le code:
Private Sub CommandButton4_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
xlBook.SaveAs ("Mon Classeur.xls")
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Name = "Rapport"
'transfert des données
Range("Rapport!A1").Value = TextBox1.Value
Range("Rapport!A2").Value = TextBox2.Value
Range("Rapport!A3").Value = TextBox3.Value
Range("Rapport!A4").Value = TextBox4.Value
xlApp.SheetsInNewWorkbook = 3
xlApp.Quit
End Sub