Curieux, c'est votre fichier et vous ne le connaissez pas?
sur les autres feuilles, il y a des tableaux "structurés", exemple:
Sur la feuille comptabilité, le tableau hormis la couleur présente les mêmes caractéristiques sauf que la notion de "structuré" n'y ai pas.
Avec un tableau structuré, les lignes de commandes en VBA sont différentes par rapport un tableau classique. et dans votre code, cette ligne:
If Not .ListObjects(1).DataBodyRange Is Nothing Then .ListObjects(1).DataBodyRange.Delete
avec les caractères en bleu qui sont attribués à un tableau structuré, il vous faut donc recréer ce tableau.Pour cela
sélectionnez la ligne des titres du tableau vert, sélectionnez "insertion" dans le bandeau, puis "Tableau", ci joint la démo en vidéo
Je vous invite à faire des recherches pour savoir ce qu'est un tableau structuré