Private Sub CommandButton2_Click()
Dim wbk As Workbook, awbk As Workbook
Dim wsh As Worksheet
Dim Fich As String
Dim Ligne As Double
Application.ScreenUpdating = False
Set awbk = ThisWorkbook
Set wsh = awbk.Sheets("Donnees regroupees")
Fich = Dir("C:\Users\M\Documents\*.xls")
Do While Fich <> ""
With wsh
Ligne = .Range("A65536").End(xlUp).Row + 1
Set wbk = Workbooks.Open("C:\Users\M\Documents\Fla\" & Fich)
wbk.Sheets("Decompte temps").Range("listeplagesource").Copy.Cells(Ligne, 1)
End With
wbk.Close False
Fich = Dir
Set wbk = Nothing
Loop
Set wsh = Nothing
Set awbk = Nothing
Application.ScreenUpdating = True
End Sub