Créer un tableau Word en fonction nombre ligne renseigné dans colonne Excel

Bonjour à tous, j'ai un petit soucis, je souhaiterais créer un tableau dans word en avec 4colonnes et en fonction du nombre de référence renseigné

dans la colonne E(4ref -> 4 lignes, 10 ref -> 10 lignes etc)

Le code me fait des lignes très aléatoires pour le moment. Qqn peut-il m'aider ?

Hello,

Un exemple brut qu'il faudra adapter au besoin :

Sub WordArray()
    Dim WordApp As Object, WordDoc As Object
     Dim bytLimitInf  As Byte, bytLimitSup As Byte, bytNbArrayRow As Byte
    Dim bytArrayWordCol As Byte, bytTmpRow As Byte, bytTmpCol As Byte

    ' #########         Partie Excel        ##########

    bytLimitInf = 4 'Premiere ligne de la colonne Excel
    bytLimitSup = 28 'Derniere ligne de la colonne Excel
    bytNbArrayRow = (bytLimitSup - bytLimitInf) ' Nb de lignes du tableau Word

    ' ##################################

    ' #########         Partie Word         ##########

    bytArrayWordCol = 4 'Nb Col du tableau word
    On Error Resume Next
    Set WordApp = GetObject(, "Word.Application")
    If Err.Number = 429 Then
        Err.Clear
        Set WordApp = CreateObject("Word.Application")
    End If
On error goto 0
    WordApp.Visible = True
    WordApp.Activate
    Set WordDoc = WordApp.Documents.Add
    WordDoc.Tables.Add Range:=WordDoc.Range(0, 0), NumRows:=bytNbArrayRow, NumColumns:=bytArrayWordCol
    With WordDoc.Tables(1)
        For bytTmpRow = 1 To bytNbArrayRow
            For bytTmpCol = 1 To bytArrayWordCol
                .cell(bytTmpRow, bytTmpCol) = "Ligne : " & bytTmpRow
            Next bytTmpCol
        Next bytTmpRow
         .Borders.Enable = True
    End With

    ' ##################################

End Sub

Merci de ton aide, je vais l'adapter à mon code

A +,