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 : Sélectionner tout - Visualiser dans une fenêtre à part
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