Microsoft 365 Personnaliser les formats de nombre proposés dans la liste Excel.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ResetBarCell
End Sub

Private Sub Workbook_Open()
AddPopupIncommandBarsCell
End Sub

'patricktoulon menu cell
Sub AddPopupIncommandBarsCell()
With CommandBars("Cell")
Set pop = .Controls.Add(msoControlPopup, , , 1, True)
pop.Caption = "format Numerique Perso"

Set bout = pop.Controls.Add(msoControlButton, , , , True)
bout.Caption = " # ##0"
bout.OnAction = "formatage_Perso"

'multiplier les 3 lignes précédentes autant de fois que tu en a besoins en changant juste  le .caption
'pour avoir tes formats perso a dispo au click droite sur cellule


End With
End Sub
' on remet le menu à l'origine
Sub ResetBarCell(): CommandBars("Cell").Reset:
End Sub

'la sub appellée par lun bouton du menu
Sub Formatage_Perso()
Selection.NumberFormat = CommandBars.ActionControl.Caption
End Sub