XL 2010 Macro qui ne fonctionne plus sous Excel 2010

Bonjour a tout le Forum
je me fais rare
Je viens de passer a windows 10 pro et office 2010
J'avais crée une macro complémentaire,qui s'affichait dans le menu excel(2002)et excel2007
qui fonctionnais bien
Maintenant j'ai une erreur
Voici ce code
Dans ThisWorkbook
Private Sub Workbook_AddinInstall()..........erreur ici
Call AjouterMenu
End Sub

Private Sub Workbook_AddinUninstall()
Call SupprimerMenu
End Sub

Dans un Module
Sub auto_open()
'ajouter le menu Conversion avant le menu Outils
MenuBars(xlWorksheet).Menus.Add Caption:="&P", Before:=6
'ajouter les commandes au menu Conversion
With MenuBars(xlWorksheet).Menus("P").MenuItems
.Add Caption:="Ma&juscule", OnAction:="Majuscule"
.Add Caption:="Mi&nuscule", OnAction:="Minuscule"
.Add Caption:="&Nom Propre", OnAction:="NomPropre"
'.Add Caption:="&Euros", OnAction:="ConversionEuros"
'.Add Caption:="&Francs", OnAction:="ConversionFrancs"
'.Add Caption:="&Logo", OnAction:="Logo"
'.Add Caption:="&Chéque", OnAction:="Chéq"
' .Add Caption:="&Excel", OnAction:="Ex"

End With
'ajouter une commande au menu Outils
MenuBars(xlWorksheet).Menus("Outils").MenuItems.Add Caption:="Majuscule", OnAction:="Majuscule"
'************

End Sub
Sub auto_close()
On Error Resume Next
MenuBars(xlWorksheet).Menus("Outils").MenuItems("Majuscule").Delete
For Each M In MenuBars(xlWorksheet).Menus
If M.Caption = "&P" Then M.Delete
Next
End Sub

Sub Majuscule()
For Each c In Selection
If Not IsNumeric(c.Value) And Not IsDate(c.Value) Then
c.Value = UCase(c.Value)
End If
Next c
End Sub
Sub Minuscule()
For Each c In Selection
If Not IsNumeric(c.Value) And Not IsDate(c.Value) Then
c.Value = LCase(c.Value)
End If
Next c
End Sub
Sub NomPropre()
For Each c In Selection
If Not IsNumeric(c.Value) And Not IsDate(c.Value) Then
c.Value = Application.Proper(c.Value)
End If
Next c
End Sub

Merci a tous a l'avance
Christian