Sub CreationMenuContextuel()
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Saisie d'une valeur"
.BeginGroup = True
.FaceId = 201
.OnAction = "SaisieValeur"
End With
End Sub
Sub SaisieValeur()
MyVal = InputBox("Entrez une valeur", "Saisie de données")
ActiveCell.Value = MyVal
End Sub
Sub ResetMenu()
Application.CommandBars("Cell").Reset
End Sub