Bonjour, j'ai un code qui permet de copier / coller la valeur de la cellule B2 d'un classeur fermé vers la cellule D6

Je recherche comment rajouter en complément d'autres cellules à copier au sein du même code.

Par ex B3 qui se collerai dans D8
et B4 qui se collerai dans D9


voici mon code initial



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub copie()
 
 
 
        Dim Fichier As String
 
 
        Worksheets("RECAP").Activate
 
      Fichier = "D:\aide\SY.xlsm"
 
      If Dir(Fichier) = "" Then
        MsgBox "Fichier " & Fichier & " introuvable"
        Exit Sub
      End If
 
      With Workbooks.Open(Fichier)
        .Sheets("feuil1").Range("B2").Copy
        ThisWorkbook.Sheets("RECAP").Range("D6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
       .Close savechanges:=False
 
      End With
End Sub
Merci du coup de main