Activation d'un nouveau classeur :)

Bonjour à toutes et à tous,

J'ai une macro dans mon classeur qui permet de créer un autre classeur Excel.
J'aimerais activer mon nouveau classeur et écrire dedans mais j'ai une erreur dans mon code " j'écris pas dans mon nouveau classeur" 🙁.
J'ai cherché sur le net mais je n'ai pas trouvé la solution à mon problème.

Mon code est le suivant:

Sub creation_fichier_excel()

'Création d'un fichier Excel
Dim Excel As New Excel.Application
Dim Workbook As Excel.Workbook
Dim Worksheet As Excel.Worksheet

'La fenêtre excel est visible
Excel.Visible = True
'On ouvre un nouveau classeur Excel pour y entrer des données
Excel.Workbooks.Add (1)
'Création d'une feuille
Excel.Worksheets.Add
Workbooks(1).Activate


[A1] = "test"
Le problème c'est que test est écrit dans la case A1 de mon ancien classeur et pas dans le classeur que je viens de créer.

End Sub


Pourriez-vous m'aider à écrire le mot "test" dans le classeur que je viens de créer.

Je vous remercie d'avance pour le temps passé sur mon problème,

Bonne fin de journée à tous,

Popi14