Sub Ouverturefer()
Dim chemin As String, Fichier As String
Dim wb As Workbook, shRecap As Worksheet, sh As Worksheet
Dim nbLig As Long, nbCol As Long
Set wb = ThisWorkbook
Set shRecap = Worksheets("RECAP")
chemin = wb.Path + "\"
nbLig = Cells(Rows.Count, "A").End(xlUp).Row - 6
nbCol = Cells(5, Columns.Count).End(xlToLeft).Column - 2
Fichier = Dir(chemin & "*.xl*") ' 1er fichier
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While (Len(Fichier) > 0)
If Fichier <> ThisWorkbook.Name Then
Workbooks.Open chemin & Fichier
' traitement
For Each sh In Worksheets
sh.[C7].Resize(nbLig, nbCol).Copy
shRecap.[C7].PasteSpecial Operation:=xlAdd
Next sh
'
ActiveWorkbook.Close
End If
Fichier = Dir() ' fichier suivant
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub