Ecrire une ligne de code dans une feuille avec une macro

Bonjour,

J'imagine que le sujet a peut être déjà été évoqué, mais j'imagine qu'il doit y'avoir une solution simple.

J'ai une macro relative à la création d'un classeur, dans lequel il y a un bouton "Actualisation".

Comment, grâce à cette macro, je peux écrire la macro ci-après dans la feuil1 de mon nouveau fichier, et ainsi la rattaché au bouton sur la page ?

Sub RefreshAll()

ActiveWorkbook.RefreshAll

End Sub

Merci d'avance

Sub TestEcriture()

Dim i, LeCode(1 To 3)
Dim NomClasseur As String, NomFeuil As String
Dim Wb As Workbook

    NomClasseur = ActiveWorkbook.Name

    LeCode(1) = "Sub RefreshAll()"
    LeCode(2) = "ActiveWorkbook.RefreshAll"
    LeCode(3) = "End Sub"

    Set Wb = Workbooks(NomClasseur)

    For i = 1 To 3

    Wb.VBProject.VBcomponents("Feuil2").codeModule.insertlines i, LeCode(i)

    Next i

End Sub