dans la mesure ou tes signets sont les mêmes pour tous les formulaires.. tu peu les mettre lors du traitement du premier fichier..
Code:
1
2
3
4
5
6
7
8 For Each f In Bmk.Range.FormFields j = j + 1 Data.Cells(i, j) =f.Result if IndexFichier =0 then Data.Cells(1, j) = f.Name Next ....