Do While WorkbookSlave <> ""
Set Slave = Workbooks.Open(ActiveWorkbook.Path & "\" & WorkbookSlave)
Set TableSlave = Slave.Sheets("Tableau")
With TableSlave
.Range(.Cells(2, 1), .Cells(2, 5)).Copy
TableMaster.Range(TableMaster.Cells(2, 5), TableMaster.Cells(2, 10)).PasteSpecial Paste:=xlPasteValues
End With