Bonjour,

je voudrais copier des cellules (A1 et B3) du classeur 1 vers C1 pour la A1 et C2 pour B3 vers un nouveau classeur.
je me suis inspiré de ce code mais ça ne marche que pour une cellule.
comme vous voyez je ne suis pas un spécialiste ,-)

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub COPIES()
    Dim Sortie As Workbook
    Dim FeuilleOrigine As Worksheet, FeuilleDestination As Worksheet
 
    'Référence la feuille origine des données à copier
    Set FeuilleOrigine = ThisWorkbook.Sheets("feuil1")
 
    NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
 
    ' On verifie que l'on a selectionné un nom de classeur
    If NomFichierSortie <> False Then
        ' On ouvre le classeur
        Set Sortie = Workbooks.Open(NomFichierSortie)
          Range("A1").Copy
 
' je veux selectionner B3 du classeur d'origne
          ' ???? Set Sortie = Workbooks.Open(NomFichierSortie)
          '???? Range("B3").Copy
 
   ' ActiveSheet.Copy
        'Référence la feuille de destination des cellules copiées
        Set FeuilleDestination = Sortie.Sheets("feuil2")
        ' On copie les cellules de la feuille désirée vers la feuille de sortie
       With FeuilleOrigine
 
    ' nouveau classeur
      Windows("Classeur2.xls").Activate
    Sheets("Feuil2").Select
    ActiveSheet.Paste Range("C1")
 
' je veux copier la cellule B3 du classeur d'origine
    '??? ActiveSheet.Paste Range("C2")
 
           'celui ci ne copie rien pourquoi ? => .Range("G10:G125").Copy Destination:=FeuilleDestination.Range("G10")
        End With
 
        ' On ferme le classeur
        'Sortie.Close
    End If
End Sub
Merci de votre aide