Bonjour,
Après plusieurs tests, à tirer vers le bas, les cellules où placer les formules sont indiquées à la fin :
=SI((LIGNE(B2)+1)/3<NBVAL(BDD[Date])+1;SI(INDIRECT("'Mon tableau'!L"&NB.SI($A$1:A1;"G")+1&"C4";FAUX)=0;CHOISIR(MOD(LIGNE(B2)+1;3)+1;"G";"";"A2");SI(INDIRECT("'Mon tableau'!L"&NB.SI($A$1:A1;"G")+1&"C5";FAUX)=0;CHOISIR(MOD(LIGNE(B2)+1;3)+1;"G";"A1";"");CHOISIR(MOD(LIGNE(B2)+1;3)+1;"G";"A1";"A2")));"") 'En A2
=SUBSTITUE(SI(A2<>"";INDIRECT("'Mon tableau'!L"&NB.SI($A$1:A2;"G")+1&"C1";FAUX);"");"/";"") 'En B2
=SI(A2<>"";INDIRECT("'Mon tableau'!L"&NB.SI($A$1:A2;"G")+1&"C2";FAUX);"") 'En C2
=SI(A2<>"";INDIRECT("'Mon tableau'!L"&NB.SI($A$1:A2;"G")+1&"C3";FAUX);"") 'En D2
=SI(GAUCHE(D2;1)="6";"D";SI(GAUCHE(D2;1)="7";"C";"")) 'En F2
=SI(A2<>"";INDIRECT("'Mon tableau'!L"&NB.SI($A$1:A2;"G")+1&"C8";FAUX);"") 'En G2
=SI(A2<>"";INDIRECT("'Mon tableau'!L"&NB.SI($A$1:A2;"G")+1&"C6";FAUX);"") 'En H2
=SI(A2<>"";INDIRECT("'Mon tableau'!L"&NB.SI($A$1:A2;"G")+1&"C7";FAUX);"") 'En I2
=SUBSTITUE(SI(A2="A1";INDIRECT("'Mon tableau'!L"&NB.SI($A$1:A2;"G")+1&"C4";FAUX);"");0;"") 'En J2
=SUBSTITUE(SI(A2="A2";INDIRECT("'Mon tableau'!L"&NB.SI($A$1:A2;"G")+1&"C5";FAUX);"");0;"") 'En K2
Ensuite il suffira de filtrer sur la colonne A pour retirer les cellules vides (dansl e cas où un axe 1 ou 2 n'est pas rempli au milieu de vos lignes de Mon tableau alors une ligne vierge est générée dans la feuille Fichier que je veux.
Cdlt,
PS : Je ne me lancerai pas sur une macro personnellement sur ce type de fichier vu qu'il est traitable par formule.