Macro pour déduire 2 tableaux d'un tableau initial

Bonjour tout le monde,
Quelqu'un pourrait-il me donner la ou les macros qui permet(tent) une fois le tableau 1 constitué à la main d'obtenir en automatique les tableaux 2 et 3 (cf fichier en PJ).
A noter que l'exemple donné est simple mais que dans la réalité le tableau 1 comporte plus de 600 lignes.....
Merci beaucoup