For x = 1 To Nbfic
Workbooks.Open(Filename:=chemin & "\" & Nom_proj(x)) _
.RunAutoMacros Which:=xlAutoOpen
der_lig = Workbook.Sheets("Feuil1").Range("A6500").End(xlUp).Row ' Ce fichier avec le code 1
With Worksheets("Synthèse")
' ICI pour prendre les DATA et les copier dans ce fichier
End With