Private Sub Boutons()
Set barremenu = ThisWorkbook.Application.CommandBars("Worksheet Menu Bar")
Set mesboutons = barremenu.Controls.Add
With mesboutons
.Caption = "DEMARRER LE CALCUL"
.FaceId = 960
.Style = msoButtonIconAndCaption
.OnAction = "Calcul"
.TooltipText = "Démarrage du calcul automatique"
.BeginGroup = True
End With
Set mesboutons = barremenu.Controls.Add
With mesboutons
.Caption = "ARRETER LE CALCUL"
.FaceId = 283
.Style = msoButtonIconAndCaption
.OnAction = "PasCalcul"
.TooltipText = "Arrêt du calcul automatique"
End With
End Sub