Re,
Dans Private Sub Items_Change() , retire Items.Clear.
Même chose dans Private Sub Type_Of_Part_Liste_Change().
L'évènement Change se déclenche à chaque fois que la sélection change dans la liste. En l'occurrence, chaque fois que tu sélectionnes un élément dans la liste, ça va clear Items (donc clear ta sélection) puis relancer le remplissage de la Liste.
Bonne journée,