Sub transfo_table()
Dim LOt As ListObject
Set LOt = ActiveSheet.[A1].ListObject
If LOt Is Nothing Then Set LOt = ActiveSheet.ListObjects.Add(xlSrcRange, ActiveSheet.UsedRange, , xlYes)
LOt.Name = "Tableau1"
LOt.DataBodyRange.Select ' ou bien LOt.Range.Select, ça dépend si vous voulez les entêtes avec ou non.
End Sub