Bonjour,
Si votre tableau est bien délimité par au moins une ligne vide au-dessus (sauf si ligne 1) et au-dessous et une colonne vide à gauche (sauf si colonne A) et à droite alors essayer
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1").CurrentRegion, , xlYes).Name = "Table3"
Où A1 pourra être changé par n'importe quelle adresse de cellule du tableau.
Choisissez un nom parlant du contenu ou de la nature de votre tableau (ex T_Personnels, T_Source, T_Horaires etc.)
Cordialement