Public Sub Transfert_Gric()
Dim classeurSource As Workbook, classeurDestination As Workbook
Dim classeurSource1 As Workbook
Set classeurDestination = ThisWorkbook
Set classeurSource = Application.Workbooks.Open("\\classeur1.xlsx")
classeurSource.Sheets(1).Cells.Copy classeurDestination.Sheets(1).Range("A1")
classeurSource.Sheets(2).Cells.Copy classeurDestination.Sheets(1).Range("U1")
classeurSource.Close
End Sub