Activation Bouton et probleme de nom répété

Bonjour,

J'ai des petites difficultés pour faire mon fichier.

En effet j'aimerais activer le bouton qui se crée à coté de la nouvelle famille. Cela consiste à reprendre le texte de la famille et ouvrir la feuille correspondante.
De plus à chaque nouvelle famille créée, mon "clickbtnGRDF" se recrée (feuille accueil) ce qui fait que j'ai des problèmes.

Le dernier bouton que j'aimerais créer sur la nouvelle feuille de la nouvelle famille serait un bouton qui créerait une sous famille ...... Est-ce que je dois utiliser les i et les j ?
(je n'ai pas encore compris ce que c'était exactement)

Le code en gras au niveau de mon problème (en fin de code)

Merci de votre aide

Option Explicit


Private Sub Label1_Click()

End Sub

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? A FAIRE

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(""Acceuil"").Select" & vbCrLf
 Code = Code & "End Sub"
   
Dim NextLine As String

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




    'Insérer un bouton créant une sous famille A FAIRE utiliser une boucle?
        
        

    'Ajouter un bouton sur la feuille d'accueil pour pouvoir atteindre la NewGRDF

Sheets("acceuil").Activate

'Ajout du bouton

Dim lig As Long

lig = Range("B65536").End(xlUp).Offset(0, 2).Activate


Dim btnGRDF As OLEObject


Set btnGRDF = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1")
With btnGRDF
    .Name = "btnGRDF"
    .Left = ActiveCell.Left 'position horizontale par rapport au bord gauche de la feuille
    .Top = ActiveCell.Top 'position verticale par rapport au bord haut de la feuille
    .Width = ActiveCell.Width 'largeur
    .Height = ActiveCell.Height 'hauteur
    .Object.Caption = "Go"
End With

'Création de la commande

Dim Codex As String

 Codex = "Sub clickbtnGRDF()" & vbCrLf & vbCrLf
 Codex = Codex & "dim t as string" & vbCrLf & vbCrLf
 Codex = Codex & "btnGRDF.adress.offset(0.2).Activate" & vbCrLf
 Codex = Codex & "t = Activecell.content" & vbCrLf
 Codex = Codex & "sheets(""t"").select" & vbCrLf & vbCrLf
 Codex = Codex & "End Sub"
   
Dim NxtLin As String

  With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
        NxtLin = .CountOfLines + 1
        .insertlines NextLine, Codex
  End With


 
NewGRDF.Hide

End Sub