Rétroplanning Globalisé à partir de plusieurs rétroplanning (Gantt)

[Musivia]

Bonjour,
A partir d'un diagramme de Gantt, j'essaie de réaliser des rétroplannings par projet qui viendrait se récapituler dans deux rétroplannings globalisés.

La logique :
J'ai 10 projets (10 feuilles) sous forme de diagramme de Gantt. Chaque projet comporte deux tâches (Production/communication).

J'ai 2 rétroplanning globaux qui devraient venir faire le récapitulatif des 10 parties Production et des 10 parties Communication.
J'ai essayé de les lier manuellement mais il y a tellement d'entrées que cela me prendrait des heures.
J'ai trouvé une macro de regroupement :
Sub Regroupement()
Nb_Feuille = Worksheets.Count

x = 2
For i = 2 To Nb_Feuille
Nb_Ligne = Sheets(i).Cells(65536, 1).End(xlUp).Row
Nb_Colonne = Sheets(i).Cells(1, 256).End(xlToLeft).Column

For u = 2 To Nb_Ligne
For Num = 1 To Nb_Colonne
Sheets(1).Cells(x, Num) = Sheets(i).Cells(u, Num)
Next Num
x = x + 1
Next u
Next i
End Sub

Mais je n'arrive pas à cibler mes parties de rétroplanning (Tâche Prod, Tâche COM).

Est-ce que quelqu'un pourrait m'aider ? Est-ce que je peux partir de cette Macro ? Si oui, comment l'adapter ?
(c) CJoint.com, 2012

Je suis noob totale mais ouverte à toutes les suggestions...

Un très bon dimanche !