macro qui me pose simple pb

Bonjour,

Quelqu'un peut-il me dire pourquoi, lorque je lance la macro suivante, je tombe sur le message : "erreur de compilation , End Sub attendu " ?

Macro :

Code:

---

1 2 3 4 5 6

Sub Macro11()   Private Sub Workbook_NewSheet(ByVal Sh As Object) Sh.Move After:=Sheets(Sheets.Count)   End Sub

---

merci pour votre aide

bonjour mourier le forum c' est normal tu mets une macro evenementielle dans une macro????

Code:

---

1 2 3

Private Sub Workbook_NewSheet(ByVal Sh As Object) Sh.Move After:=Sheets(Sheets.Count) End Sub

---

que veut tu faire excatement ??????????

Slt,
Simplement parce que tu ne peux pas imbriquer deux macro en même temps.
c'est soit:

Code:

---

1 2 3

Sub tata() 'ton code End Sub

---

soit

Code:

---

1 2 3

Private sub toto () 'ton code End Sub

---

par contre tu peux appeller une macro dans une autre

Code:

---

1 2 3 4

Private Sub toto () 'Ton code call tata End Sub

---

A+