Utiliser inputbox pour définir la dimension d'une array

Sub test15()

    Dim z As Integer
    Dim marray() 'quel type ?
    
    
    z = InputBox("how many lines you want", "gotitle")
    
    ReDim marray(1 To z) 'ou 0 to z selon la base que tu veux utiliser
    
    MsgBox UBound(marray) 'pour voir qu'il à bien été dimensionné comme souhaité
    
End Sub

Sub test15()
Dim z As Integer, marray()
z = Val(InputBox("how many lines you want", "gotitle"))
If z < 1 Then Exit Sub
ReDim marray(1 To z) 'base 1
'---
End Sub