Repartition des celules

Bonjour,

dans le fichier joint j'ai un petit exemplaire du travail que j'arrive pas à faire, il faut que j'arrive a repartir ce que j'ai dans les cellules jaunes si J'ai 3 valeurs ( 999999 999999 99999) faut mettre chaque valeur dans une cellule indépendante des autres et je veux déplacer l'emplacement des cellules en rouge dans la colonne catégorie que j'ai ajouté et tout ceci dans un code VBA..

Help!

Bonjour, pour lancer la macro appuyez sur contrôle + k. Le résultat est en feuille 2

Merciiii