Problème d'affectation d'une macro à un bouton

Sub go()

CopieCodeModule
CréerBouton


End Sub

''>>>Code du Grand Frédérique Singonneau <<<
Sub CopieCodeModule()
Dim S As String, Wbk As Workbook

With ActiveWorkbook.VBProject.VBComponents('Module2').CodeModule
S = .Lines(2, .CountOfLines)
End With

Set Wbk = Workbooks.Add
Wbk.VBProject.VBComponents.Add 1
With Wbk.VBProject.VBComponents('Module1').CodeModule
.AddFromString S
End With

End Sub

Sub CréerBouton()

Workbooks(3).Worksheets(1).Activate
'Défini l'emplacement et la taille du bouton
ActiveSheet.Buttons.Add(60, 0, 60, 12.75).Select
Application.ScreenUpdating = False
Selection.OnAction = 'Rechercher'
Selection.Characters.Text = 'Rechercher une fiche'
With Selection.Characters(Start:=1, Length:=10).Font
.Name = 'Arial'
.FontStyle = 'Normal'
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = xlAutomatic
End With
Range('A1').Select
End Sub