RE,
Un exemple à adpater.
Cdlt.
Option Explicit
Public Sub CreateTable()
Dim ws As Worksheet, rng As Range, lo As ListObject
Set ws = Worksheets("Feuil2")
Set rng = ws.Cells(2, 2).Resize(10, 4) '9 lignes + en-tête et 4 colonnes
Set lo = ws.ListObjects.Add(1, rng, , xlYes)
With lo
.Name = "T_Exemple"
.TableStyle = "TableStyleLight1"
.HeaderRowRange.Value = Array("Référence", "Prod", "Stock initial", "Entrées")
End With
End Sub