Sub copier()
Dim chemin$, i%, Derlg&
chemin = ThisWorkbook.Path & "\"
myNum = Application.InputBox("Entrer le nombre de contrôle", "Saisie", Type:=1)
Application.ScreenUpdating = False: Application.EnableEvents = False
For i = 1 To myNum
Workbooks.Open chemin & "fichier " & i & ".xlsx"
ActiveWorkbook.Sheets("Liste générale de contrôle").Range(Cells(2, 1), Cells.SpecialCells(xlCellTypeLastCell).Address).Copy
Derlg = 2: On Error Resume Next: Derlg = ThisWorkbook.Sheets("Total").Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1: On Error GoTo 0
ThisWorkbook.Sheets("Total").Range("a" & Derlg).PasteSpecial Paste:=xlPasteValues...