Sub consolide()
Cells.Delete
ChDir ActiveWorkbook.Path
Set Synthese = ActiveWorkbook
Application.ScreenUpdating = False
compteur = 1
nf = Dir("C:\WINNT\Profiles\pchaza18\Desktop\fitting en cours\*.xls")
Do While nf <> ""
If nf <> Synthese.Name Then
Workbooks.Open Filename:=nf
Synthese.Sheets(1).Cells(compteur, 1) = Workbooks(nf).Sheets("Resultats").Range("D50").Value
Synthese.Sheets(1).Cells(compteur, 2) = Workbooks(nf).Sheets("Resultats").Range("D66").Value
Synthese.Sheets(1).Cells(compteur, 3) = Workbooks(nf).Sheets("Resultats").Range("D53").Value
compteur = compteur + 1
Workbooks(nf).Close False
End If
nf = Dir
Loop
Synthese.Sheets(1).Rows(1).Insert Shift:=xlToRight
Synthese.Sheets(1).Columns("A:A").Insert Shift:=xlToRight
Range("B1") = "Chaussure testée"
Range("C1") = "Nombre de fitting fait"
Range("D1") = "Sample Type"
Range("B1:D1").Interior.Color = 13434879
Range("B1:D1").Font.Bold = True
Range("B1:D1").Font.Size = 12
Sheets(1).Cells.HorizontalAlignment = xlCenter
Sheets(1).Cells.VerticalAlignment = xlCenter
Application.ScreenUpdating = True
End Sub