Sub syntèseClasseurs()
'Macro de Boisgontier
Dim ws As Worksheet
Dim wb As Workbook
Dim Filename As String
Application.ScreenUpdating = False
[A3:F65000].Clear
Set maitre = ActiveWorkbook
Repertoire = ThisWorkbook.Path
nf = Dir(Repertoire & "\*.xls") ' premier fichier
Do While nf <> ""
If nf <> ThisWorkbook.Name Then
Filename = Repertoire & "\" & nf
Set wb = Workbooks.Open(Filename)
For Each ws In wb.Worksheets
If ws.Name = "Note 1" Or ws.Name = "Note 2" Then
Range("A1", [A65000].End(xlUp)).Resize(, 12).Copy _
maitre.Sheets(1).[A65000].End(xlUp).Offset(1, 0)
ActiveWorkbook.Close False
End If
Next ws
' wb.Close savechanges:=False
End If
nf = Dir ' fichier suivant
Loop
Application.ScreenUpdating = True
End Sub