Tu as tout changé !
Dans ta procédure :
Convertis la valeur de T3 (toujours le même problème, au sortir de la Combo, c'est du texte !)
Supprime la boucle qui réutilise c et brouille les cartes.
Et supprime Value dans c.Value, car ce n'est plus une cellule, mais la valeur de T3.
(Si tu typais tes variables, celles qui peuvent et doivent l'être, tu aurais été alerté avant...)
c = CDec(T3)
i = Application.VLookup(c, aa, 2, 0)
Nb- Je n'ai toujours pas regardé la ListBox...
Cordialement.