Sub Macro3()
ActiveSheet.Buttons.Add(279, 60.75, 160.5, 62.25).Select
Selection.OnAction = "Macro2"
Selection.Characters.Text = "Bouton lancer"
With Selection.Characters(Start:=1, Length:=13).Font
.Name = "Calibri"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
End Sub