Sub Macro1()
Dim ws As Workbook
chemin = ThisWorkbook.Path & "\"
For i = 1 To 10
Set ws = Workbooks.Open(chemin & "TCS-" & i & ".xlsx")
'Exemple de plage à copier
ws.Sheets(1).Range("a1:a15").Copy ThisWorkbook.Sheets("TC.Sc" & i).Cells(1, 1)
'ici rajouter les autres plages à copier s'il y en a plusieurs...
'....
'....
ws.Close False
Next i
End Sub