Re-Bonjour,
Je regarde!
Yann
Tiens, il me semblais bien que j'avais mal compté tout à l'heure.
Change cette ligne
ThisWorkbook.Sheets("Synthèse").Range(Cells(1, 1), Cells(nblignesSynthese, nbMarques)).Value = tabSortie
Par
ThisWorkbook.Sheets("Synthèse").Range(Cells(1, 1), Cells(nblignesSynthese + 1, nbMarques + 1)).Value = tabSortie
ça règlera ton problème!
Yann