VBA - erreur d'éxécution'9'

Bonjour,

J'ai un problème d'erreur d'éxécution'9'...
Lorsque je run mon prog avec une nouvelle feuille exemple: Sheets("Feuil4").Select
Tout Fonctionne bien...

Mais je dois partir mon prog sur une feuille qui contient deja des données (tableaux)
et c'est la que l'erreur survient voici mon code:

Sub CréerBouton()

Dim Obj As Object
Dim Code As String

ActiveSheet.Select

'creer un bouton
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=590, Top:=12, Width:=120, Height:=50)
Obj.Name = "BoutonTest" // C,est la que l'erreur survient

'Nom du bouton
ActiveSheet.OLEObjects(1).Object.Caption = "Tester le bouton"

'Le texte de la macro que le bouton va exécuter
Code = "'FONCTION executer losrqu'on click sur le bouton" & vbCrLf
Code = Code & "Sub BoutonTest_Click()" & vbCrLf
Code = Code & "Call sasclerLog_aaaammdd" & vbCrLf
Code = Code & "End Sub"

'Ajoute la macro en fin de module feuille
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
.insertlines .CountOfLines + 1, Code
End With
End Sub