Sub CreerOnglet()
Dim Ws As Worksheet
Set Ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
With ThisWorkbook
With .VBProject.VBComponents(Ws.CodeName).CodeModule 'Copie l'onglet sans les macro de la feuille
.AddFromString "Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)" & vbLf & _
"Cancel = True" & vbLf & "menu" & vbLf & "End Sub"
End With
End With
End Sub