Bonjour à tous,
 
Je travaille actuellement sur une macro qui me permet de créer des boutons dynamique.J'ai créé le code qui suit et un message apparait lorsque je l'éxecute " L'indice n'appartient pas à la selection" en me surlignant la ligne :
 
With ThisWorkbook.VBProject.VBComponents(MaFeuille.Name).CodeModule"
 
Ce code fonctionne lorsque je le met dans une feuille tout belle,toute vierge mais dans mon application (il doit me créer le bouton sur la feuille sur laquelle je travaille actuellement, mais la macro est applicable sur plusieurs feuille) il ne fonctionne pas.
 
Mon programme :

....
Dim Code As String
Dim NextLine As String
Dim Monbouton As OLEObject
Dim MaFeuille As Worksheet
Set MaFeuille = ThisWorkbook.ActiveSheet
Set Monbouton = MaFeuille.OLEObjects.Add(ClassType:="Forms.CommandButton.1" )
Monbouton.Name = "Bouton"
Monbouton.Width = 160
Monbouton.Height = 20
 
Code = "Sub Bouton_Click()" & vbCrLf
Code = Code & "Msgbox ""salut"" " & vbCrLf
Code = Code & "End Sub"
 
With ThisWorkbook.VBProject.VBComponents(MaFeuille.Name).CodeModule
  NextLine = .CountOfLines + 1
 .InsertLines NextLine, Code
End With
......

 
Je remercie d'avance tous ceux qui se pencheront sur mon problème
 
A+

Personne n'a trouvé de solution a mon problème ?????.........snifffff !!!!

Solution :  
 
With ThisWorkbook.VBProject.VBComponents(MaFeuille.CodeName).CodeModule  
 
Prenez du plaisir !!!