Option Explicit
Const dossier As String = "D:\BUD_2015\" ' à adapter
Sub compiler_classeurs()
'dossier = ThisWorkbook.Path & "\"
Dim fn$, wb As Workbook
Dim n As Integer
fn = Dir(dossier & "*B.xls")
If IsNull(fn) Then Exit Sub
Set wb = ThisWorkbook
ligne = wb.Sheets("RECAP").Range("A" & Rows.Count).End(xlUp).Row + 1
Application.ScreenUpdating = False
Do While fn <> ""
With Workbooks.Open(dossier & fn)
With .Sheets("DEP_035")
' .[B2].Resize(.[B65536].End(xlUp).Row - 1, 184).Copy
For n = Range("B" & Rows.Count).End(xlUp).Row To 1 Step -1
If Len(Range("B" & n)) = 4 And Left(Range("B" & n), 2) = "DP" Then
Rows(n).Copy
'wb.Sheets("RECAP").[A65536].End(xlUp)(2).PasteSpecial xlValues
wb.Sheets("RECAP").Range("A" & ligne).PasteSpecial xlValues
ligne = ligne + 1
End If
Next
End With
Application.CutCopyMode = False
.Close False
End With
fn = Dir
Loop
Application.ScreenUpdating = True
End Sub