Sub copiecollesaveBIS()
Dim Rep$, FichS As Workbook, FichD$, wkbD As Workbook
Application.ScreenUpdating = False
Rep = "C:\Temp\": FichD = "test.xls"
Set FichS = ThisWorkbook
Set wkbD = Workbooks.Open(Rep & FichD)
FichS.Sheets(1).Range("A1").CurrentRegion.Copy Destination:=wkbD.Sheets(1).[A1]
'ou si copie dans 1ère cell non vide
'FichS.Sheets(1).Range("A1").CurrentRegion.Copy Destination:=wkbD.Sheets(1).[A65536].End(xlUp)(2)
wkbD.Close True
Application.ScreenUpdating = True
End Sub