Sub test()
Dim Classeur As Workbook
For Each Classeur In Workbooks
Select Case Classeur.Name
Case Is = "LANCELOT.xls", "SOLIS.xls"
Classeur.Sheets(1).Rows("2:" & Classeur.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row).Copy _
ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Select
Next
End Sub
... À ce stade, je n'ai pas parlé de macro, moi ... tu fais référence à la proposition de Yurperqod? Ou alors ton appel aux divinités incluait implicitement une macro?Effectivement, j'avais pensé à la MFC, avant de lancer la macro il me suffit de vérifier les doublons au moment de l'extraction des fichiers.