Set wbSource = ActiveWorkbook
Set detail = wbSource.Sheets("Détail")
On Error Resume Next
detail.ShowAllData
m = 2 ' ligne de chaque fichier source ==> ' boucle ici à modifier pour copier plus rapide ??
While detail.Cells(m, 1) <> ""
detail.Rows(m).Copy trait.Rows(n) ' (n = est la ligne du fichier de sortie)
m = m + 1
n = n + 1
Wend