Private Sub Données()
Dim i, j
Dim Temp As String
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Application.ScreenUpdating = False
Temp = Dir(ActiveWorkbook.Path & "\*.xls")
Do While Temp <> ""
If Temp Like "REN" & Année & NSem & "*.xls" Then
i = Cells(65536, 2).End(xlUp).Row + 1
Application.DisplayAlerts = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Temp
With ThisWorkbook.Sheets("Synthèse")
'Ce que tu as à copier
.Cells(i, 1) = ActiveSheet.Range("A1")
'etc....
End With
Workbooks(Temp).Close
End If
Temp = Dir
Loop
End Sub