En effet, un code censé me permettre de rajouter du code à une feuille nouvellement créée (automatiquement) ne veux s'exécuter!
A vrai dire, au début il semblait fonctionner.
Maintenant, il ne fonctionne plus sauf si j'ouvre VB avant de l'éxécuter ou que je l'éxécute en pas à pas : c'est incompréhensible!!
L'erreur est la suivante :
"Erreur d'éxécution '9' :
L'indice n'appartient pas à la sélection"
Private Sub BoutonAjoutZone_Click()
'Création de la nouvelle feuille
ActiveWorkbook.Sheets.Add.Name = "FeuilleVierge"
Sheets("FeuilleVierge").Move after:=Worksheets(Worksheets.Count)
'Ajouter une macro à la nouvelle feuille
Dim laMacro As String
Dim x As Integer
laMacro = "Private Sub Worksheet_Change(ByVal Target As Range)" & vbCrLf
[...]
laMacro = laMacro & "End Sub"
With ThisWorkbook.VBProject.VBComponents(Sheets("feuil1").CodeName).CodeModule
x = .CountOfLines + 1
.InsertLines x, laMacro
End With
End If
Exit Sub
L'erreur vient de la ligne suivante :
Code:
With ThisWorkbook.VBProject.VBComponents(Sheets("feuil1").CodeName).CodeModule