taille du lisbox

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Nom As Name
If HasValidationQ(ActiveCell) Then
a = Right(ActiveCell.Validation.Formula1, Len(ActiveCell.Validation.Formula1) - 1)
UserForm1.ListBox1.RowSource = a
For i = 0 To UserForm1.ListBox1.ListCount - 1
    If ActiveCell = UserForm1.ListBox1.List(i, 0) Then
    UserForm1.ListBox1.Selected(i) = True
    End If
    If UserForm1.ListBox1.List(i, 0) <> "" Then imax = i
    
Next i

If imax > 10 Then imax = 10
' hauteur variable
UserForm1.ListBox1.Height = 10 * (imax + 3)
UserForm1.Show

End If
fin:
End Sub