Ajouter un code au module d'une feuille dans un nouveau classeur

Sub AjoutModule()
Dim Wbk As Workbook
Dim VBComp As VBComponent
    'création d'un nouveau classeur
    Set Wbk = Workbooks.Add
    'Création d'un module dans ce classeur
    Set VBComp = Wbk.VBProject.VBComponents.Add(vbext_ct_StdModule)
    'Insertion du code dans ce module
    With VBComp.CodeModule
        .InsertLines 1, "Sub Test"
        .InsertLines 2, "MsgBox ""Hello World !"""
        .InsertLines 3, "End Sub"
    End With
End Sub