Bonjour et bienvenue sur ce forum,
Vous avez un tableau au format structuré et dans ce cas, il ne faut jamais de lignes sans données. Le code ajoute toujours à la dernière ligne et là vous n'avez plus de lignes dans le tableau
1. Donc une première chose à faire, c'est sélectionner tout le tableau depuis A2 à Q et dernière ligne de votre feuille, puis click droite et choisir "supprimer" --> "ligne de tableau" (Attention vous devez voir l'option "Lignes de tableau". Le cas échéant c'est que vous avez sélectionné la(es) ligne(s) entière(s) )
2. Ensuite dans le code Ajouter, remplacez cette ligne
designation = WorksheetFunction.VLookup(CDbl(CmbCode), Sheets("Data").Range("D:E"), 2, False)
Crdlt