Bonjour à tous,

J'essaie présentement de resize un tableau lorsque de nouvelles données sont entrées dans celui-ci.
Voici ce que j'ai pour le moment, ça ne semble pas fonctionner puisque ça bloque à la ligne #6

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
'---------------Resize the TM1 table to fit the new amount of data---------------------------------------------------------------------------------------
    Dim Bottom As Long
 
    Worksheets("dataTM1").Activate
    Bottom = Range("A1048576").End(xlUp).Row
    ActiveSheet.ListObjects("tbTM1").Resize Range("$A$1:Bottom")
Est-ce que quelqu'un peut m'aider à trouver ce qui bogue et à le corriger?
Ou simplement m'indiquer une meilleure façon de procéder?

Merci d'avance
Nomorerulz