Macro Excel, insérer du code dans Workbook

Bonjour,
Quelqu'un sait comment mettre du code par macro dans "thisworkbook", et peut être dans une feuille ?
Je ne sais utiliser insertline que dans un module, à moins que cela ne soit pas possible ?

Exemple de mon code:
_______________________________________________________________________________________
Sub test()

Dim LignesDeCode As String
Dim LigneSuivante As Long

'Ajout de l'évènement
LignesDeCode = "Code a ajouter " & vbCrLf
LignesDeCode = LignesDeCode & " reste du code à ajouter"
.........................................................................

With ThisWorkbook.VBProject.VBComponents(1).CodeModule
LigneSuivante = (.CountOfLines + 1)
.InsertLines LigneSuivante, LignesDeCode
End With

End Sub
______________________________________________________________________________________

J'obtient une erreur à With ThisWorkbook.VBProject.VBComponents(1).CodeModule

Je voudrais ajouter ce que contient LignesDeCode à une feuille (Feuil1) et au WorkBook s.v.p

Merci