ActiveSheet.Buttons.Add(598.5, 918.75, 115.5, 72.75).Select
Selection.OnAction = "EnrRDV"
Selection.Characters.Text = "3 oui = TRANSFEREZ VOTRE RENDEZ-VOUS"
With Selection.Characters(Start:=1, Length:=36).Font
.Name = "Arial Black"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 51
End With