Salut Mickael,
voici...
Si tu dois changer la structure de 'Gestion', pour corriger l'affichage en 'Fiche', c'est ici que ça se joue.
For x = 2 To 7
.Cells(iRowB, x) = Cells(iTRow, Choose(x, 26, 3, 2, 4, 13, 6, 5))
Next
For x = 2 To 7
Ces sont les colonnes d'affichage en 'Fiche'
Choose(x, 26, 3, 2, 4, 13, 6, 5
Pour chaque colonne X en 'Fiche' correspond celle contenant les données en 'Gestion'.
A+