[VBA-E] Variable qui ne fonctionne pas systématiquement

Bonsoir,
J'utilise ce code pour écrire dans la partie code d'une feuille Excel:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Classeur As Workbook Set Classeur = Excel.Application.ActiveWorkbook Dim FresA As Worksheet Set FresA = Classeur.Worksheets.Add Dim NomFeuille As String NomFeuille = FresA.CodeName Dim xl As Integer With Classeur.VBProject.VBComponents.Item(NomFeuille).CodeModule xl = .CountOfLines .InsertLines xl + 1, "Private Sub Worksheet_Calculate()"   .InsertLines xl + 2, "End Sub" End With

---

Quand le programme arrive au With, de temps en temps il s'arrête et renvoie l'erreur: "L'indice n'appartient pas à la sélection". Quand je mets un espion sur la variable NomFeuille, elle est alors vide. Je ne vois pas pourquoi.
Quelqu'un aurait-il une idée svp?

Ton code fonctionne parfaitement chez moi. Ajoute en doevents après ajout de la feuille

Code:

---

1 2 3

Set FresA = Classeur.Worksheets.Add DoEvents Dim NomFeuille As String

---

Il est possible que ton micro n'ait pas le temps de finir la création de la feuille avant d'écrire le code
A+

Bonjour,
le

Code:

---

DoEvents

---

a effectivement réglé la chose.
Merci.