Comment remplir le tbCodeDessert d'après le cbNomDessert avec dictionary

Bonjour à toutes et à tous,

Je n'arrive pas à trouver la solution pour remplir le tbCodeDessert en utilisant éventuellement Dictionary ou sans l'utiliser. À vous de voir la meilleure solution. D'avance merci pour votre aide. J'ai créé une procédure Private Sub cbNomDessert_Change mais cela ne donne toujours pas le résultat escompté.