Problème définition dernière ligne

Bonjour,

Comme d'habitude, j'utilise la ligne suivante pour déterminer ma dernière ligne :

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row

Ma macro ne marchant pas, je me pose la question de cette définition de dernière ligne.

Je fais donc une nouvelle macro :

Sub TEST()

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row

MsgBox(DL)

End Sub

Ce qui me retourne la valeur 4988.

Je ne comprend pas, cette cellule est vide, alors je fais une nouvelle macro :

Sub TEST()

MsgBox(Range("A4988").Value)

End Sub

Ce qui me retourne rien du tout dans la MsgBox.

Je suis coincé. Une idée?

Le fichier : https://www.transfernow.net/?utm_source=partagefichierscom&utm_medium=download

Edit : Il semble que le problème soit la table "Tableau3". Comment trouver la dernière cellule non vide de cette table?