Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sz%, Mx%
Mx = 290 'taille max
'UserForm1.Show (False)
If Target.Row = 3 And Target.Column = 3 Then
Sz = WorksheetFunction.Min(Mx, Val(Target))
With UserForm1.Frame1
.Height = Sz
.Top = 70 + (Mx - Sz)
End With
End If
End Sub