Créer un tableau à nombre de lignes variable

Bonjour à tous,

Je souhaiterez créer un tableau dont le nombre de lignes est déterminé par la valeur d'une cellule.

Est-ce possible ?

Merci de votre aide.

VBL

Bonjour,

Une piste :

Sub Tableau()

    Dim Fe As Worksheet
    Dim LstTab As ListObject
    Dim Plage As Range
    Dim Lig As Long
    Dim Col As Long
    Dim I As Integer

    Set Fe = ActiveSheet

    Lig = Fe.Range("J1").Value
    Col = 5

    With Fe: Set Plage = Range(Cells(1, 1), Cells(Lig, Col)): End With

    Set LstTab = Fe.ListObjects.Add(xlSrcRange, Plage)

    With LstTab

        .Name = "Mon_Tableau"
        .HeaderRowRange = 1
        .DataBodyRange.AutoFilter

        For I = 1 To Col
            .Range(I).Value = "Entete_" & I
        Next I

    End With

End Sub