Sub MAJ()
Dim classeurSource As Workbook, classeurDestination As Workbook, Fichiers, Filtre$, i%, DerLigne As Long
Feuil3.Cells.ClearContents
Set classeurDestination = ThisWorkbook
Filtre = "Fichiers Excel 2007-2010(*.xlsx;*.xlsm),*.xlsx;*.xlsm,"
Fichiers = Application.GetOpenFilename(Filtre, 1, "Sélection des fichiers", , True)
If IsArray(Fichiers) = False Then Exit Sub
For i = LBound(Fichiers) To UBound(Fichiers)
Set classeurSource = Application.Workbooks.Open(Fichiers(i))
DerLigne = classeurSource.Sheets("Saisie CR").Range("b" & Rows.Count).End(xlUp).Row
classeurSource.Sheets("Saisie CR").Range("b6:q" & DerLigne).Copy classeurDestination.Sheets("Saisie CR").Range("b" & Rows.Count).End(xlUp).Offset(1, 0)
classeurSource.Close False
Next
End Sub