Private Sub CommandButton1_Click()
Dim MyNewHeight As Integer
MyNewHeight = Application.InputBox('Nouvelle Hauteur', 'TextBox1', 30, Type:=1)
With Me.TextBox1
If MyNewHeight > .Height Then
.Top = .Top + .Height - MyNewHeight
If .Top < 0 Then .Top = 0
.Height = MyNewHeight
Else
.Height = MyNewHeight
End If
End With
End Sub