Dim W As Workbook
Set W = ActiveWorkbook
Workbooks.Open Filename:="C:\Users\subakuno\m2-pme\square\qualif\Script\bonzairetravaillé.xls"
Workbooks("bonzairetravaillé").Sheets("company").Cells.Copy W.Sheets(2).Range("A1")
Workbooks("bonzairetravaillé").Close