Changer de police et taille dans une Inputbox

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub SpinButton1_Change()
    Var = Me.SpinButton1.Min
    Selection.ShapeRange.TextFrame.MarginTop = Me.SpinButton1.Value
End Sub

Private Sub SpinButton3_Change()
    Selection.ShapeRange.TextFrame.MarginLeft = Me.SpinButton3.Value
End Sub

Private Sub SpinButton4_Change()
    Selection.ShapeRange.TextFrame.MarginRight = Me.SpinButton4.Value
End Sub

Private Sub SpinButton5_Change()
    Selection.ShapeRange.TextFrame.MarginBottom = Me.SpinButton5.Value
End Sub

Private Sub UserForm_Activate()
With Selection
    Set Var = Selection
    .Text = InputBox("Entrez le texte")
    Me.SpinButton1.Min = 0
    Me.SpinButton1.Max = Selection.Height * 2
    Me.SpinButton1.Value = .ShapeRange.TextFrame.MarginTop
    Me.SpinButton5.Min = 0
    Me.SpinButton5.Max = Selection.Height * 2
    Me.SpinButton5.Value = .ShapeRange.TextFrame.MarginBottom
    Me.SpinButton3.Min = 0
    Me.SpinButton3.Max = Selection.Width * 2
    Me.SpinButton3.Value = .ShapeRange.TextFrame.MarginLeft
    Me.SpinButton4.Min = 0
    Me.SpinButton4.Max = Selection.Width * 2
    Me.SpinButton4.Value = .ShapeRange.TextFrame.MarginRight
End With
End Sub