Juste une idée comme ca tu peux aussi utilise le numero devant ton bonhomme pour choisir la case je m'explike tu fais:
Une premiere liste a l'arrache par exemple sur la deuxieme colonne
Ensuite tu va faire la macro permettant de tout bien mettre sur la premiere colonne:
i=1
Do until cells(i,2)=""
cells(left(feuil1.cells(i,2),1),1)=cells(i,2)
i=i+1
loop