Modifier le code d'un bouton de commande VBA

Sub AddSheetAndButton() 
    Dim NewSheet As Worksheet 
    Dim NewButton As OLEObject 
     
'   Add the sheet 
    Set NewSheet = Sheets.Add 
     
'   Add a CommandButton 
    Set NewButton = NewSheet.OLEObjects.Add _ 
      ("Forms.CommandButton.1") 
    With NewButton 
        .Left = 4 
        .Top = 4 
        .Width = 100 
        .Height = 24 
        .Object.Caption = "Return to Sheet1" 
    End With 
     
'   Add the event handler code 
    Code = "Sub CommandButton1_Click()" & vbCrLf 
    Code = Code & "    On Error Resume Next" & vbCrLf 
    Code = Code & "    Sheets(""Sheet1"").Activate" & vbCrLf 
    Code = Code & "    If Err <> 0 Then" & vbCrLf 
    Code = Code & "      MsgBox ""Cannot activate Sheet1.""" & vbCrLf 
    Code = Code & "    End If" & vbCrLf 
    Code = Code & "End Sub" 
     
    With ThisWorkbook.VBProject. _ 
      VBComponents(NewSheet.Name).CodeModule 
        NextLine = .CountOfLines + 1 
        .InsertLines NextLine, Code 
    End With 
End Sub 
' 

Private Sub CommandButton9_Click()

Dim nom As String
Dim Code As String

ligne = InputBox("On which line did you add the new supplier ?", "Add supplier")

    ActiveSheet.Shapes("CommandButton1").Select
    Selection.Copy
    Cells(ligne, 4).Select
    ActiveSheet.Paste
    nom = Selection.Name
    Code = " Sub " + nom + "_Click()" & vbCrLf & vbCrLf & _
    nom + ".TopLeftCell.Select" & vbCrLf & vbCrLf & _
    "Call Codefct" & vbCrLf
    
     With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        NextLine = .CountOfLines + 1
        .InsertLines NextLine, Code
    End With

End Sub