Erreur 9 : l'indice n'appartient pas à la sélection

Bonjour,

J'essaie de rajouter un bouton dans une nouvelle feuille et de lui attribuer son code ceci en appuyant sur un bouton de mon userform.
Pour l'instant tout fonctionne excepté le code du bouton dans la nouvelle feuille^^


La ligne

With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule

est repérée quand l'erreur 9 est signalée. (vers la fin)

Si quelqu'un peut m'aider ce serait vraiment super!

Private Sub CommandButton1_Click()


' NewGRDF incorporer une nouvelle famille
    ' Selectionner 2 lignes après la derniere zone de texte dans la colonne B

Dim derlign As Long

derlign = Range("B65536").End(xlUp).Offset(1, 0).Activate

Dim lign As Long

lign = ActiveCell.EntireRow.Select

    'Insérer 2 lignes

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
    'Insérer texte de la textbox1

Dim txt As String

txt = Range("B65536").End(xlUp).Offset(2, 0).Activate
ActiveCell = TextBox1

Dim truc As Byte

truc = ActiveSheet.Index

    'Création et nom de la feuille

Dim Ws As Worksheet

Set Ws = Sheets.Add
Ws.Move After:=Worksheets(truc + 1)

'nom deja pris?

Ws.Name = TextBox1

    'Insertion du texte dans la feuille

Range("a1") = "Dernière mise à jour:"
Range("b8") = TextBox1
Range("h1") = "Util. :"
Range("c1") = Date

    'Inserer un bouton ramenant à la feuille précédente.

'Création du bouton

Dim btnprec As OLEObject

Set btnprec = Ws.OLEObjects.Add("Forms.CommandButton.1")
With btnprec
    .Name = "btnprec"
    .Left = 50 'position horizontale par rapport au bord gauche de la feuille
    .Top = 50 'position verticale par rapport au bord haut de la feuille
    .Width = 30 'largeur
    .Height = 17 'hauteur
    .Object.Caption = "<--"
End With

'Création de la commande

Dim Code As String

 Code = "Sub btnprec_Click()" & vbCrLf
 Code = Code & "Sheets(""feuil1"").Select" & vbCrLf
 Code = Code & "End Sub"
   
Dim NextLine As String

  With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        NextLine = .CountOfLines + 1
        .insertlines NextLine, Code
  End With

    
End Sub