J'essaye de recopier une plage de données depuis un autre classeur, mais j'ai une erreur a l execution ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim wb As Workbook
        Dim ws As Worksheet
        Set wb = Workbooks.Open(nom, , True)
        Set ws = wb.Worksheets(1)
        ws.Range("A3:D8").Select
        Selection.Copy
        wb.Close
        Range("B15").Select
        ThisWorkbook.ActiveSheet.Paste
j'ai trouvé ca :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
      Dim wb As Workbook
        Dim ws As Worksheet
        Set wb = Workbooks.Open(nom, , True)
        Set ws = wb.Worksheets(1)
        ws.Range("A2:D8").Select
        Selection.Copy
        ThisWorkbook.Activate
        Range("B15").Select
        ActiveSheet.Paste
        wb.Close
ca marche mais si quelqu'un connait un meilleur truc je suis toute ouie