Bonjour,
Pour moi, le problème vient d'ici :
ComboBox2.List = Application.Transpose(Range("Code2"))
Ta zone "Code2" Je ne l'utiliserais pas si j'étais toi, si tu veux quelque chose de plus fiable, tu devrais enregistrer la dernière colonne en faisant un der_col = Range(B1).end(xlright) et remplacer code2 par quelque chose qui fasse "B1:"&ascii(code)&"1
Tu devrais faire pareil pour ton Code1