Sub conso()
Dim Adr$, Chemin$, fn$, n$
Dim WB_k As Workbook
Chemin = "C:\Temp\" [COLOR="Green"]'a[/COLOR]
Adr = "C1:H1"[COLOR="Green"]'c[/COLOR]
Set WB_k = ThisWorkbook
fn = Dir(Chemin & "*.xls")
Application.ScreenUpdating = False
Do While fn <> ""
If fn <> WB_k.Name Then
With Workbooks.Open(Chemin & fn)
With .Sheets(1)[COLOR="Green"]'b[/COLOR]
n = .Name
With .Range(Adr)
WB_k.Sheets(1).Range("A" & Rows.Count).End(xlUp)(2) = _
fn & "| " & n[COLOR="Green"]'b[/COLOR]
WB_k.Sheets(1).Range("B" & Rows.Count).End(xlUp)(2) _
.Resize(.Rows.Count, .Columns.Count).Value = .Value[COLOR="Green"]'b[/COLOR]
End With
End With
.Close False
End With
End If
fn = Dir
Loop
Application.ScreenUpdating = True
End Sub