Sub devis()
Dim w As Workbook, w2 As Workbook
Set w = GetObject("F:\ESSAI EXCEL\devis adhesif\Modification projet\Papiers.xlsm")
Set w2 = GetObject("F:\ESSAI EXCEL\devis adhesif\Modification projet\devis_adhesif.xlsm")
'Copier les données du classeur "Papiers" dans l'onglet "Papiers" du classeur "Devis_adhesif"
w.Sheets("Papiers").Range("A2:d100").Copy
w2.Worksheets("Papiers").Range("A2").PasteSpecial xlPasteAll
Application.CutCopyMode = False
'fermer le classeur "Papiers"
ThisWorkbook.Close SaveChanges:=True
w2.Worksheets("Devis").Select
End Sub