Bonjour à tous

Je viens de me lancer dans la programmation VBA depuis un mois. Je réalise actuellement une macro permettant d'éditer un rapport en fonction des données calculées dans mon classeur.

Je cherche à copier un graphique se situant dans une feuille de mon classeur et le coller dans la feuille "Rapport" et dans la plage (A35:L47).

J'ai cherché des cas similaire sur le forum mais je n'ai rien trouvé, sauf erreur de ma part. Si cette question est déjà posée, excusez-moi par avance.

Voici un bout de programme que je viens de réaliser :

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
Sub RapportClient() 'On travail sur la feuille rapport
 
Sheets("Rapport").Activate
 
Cells(3, 10).Value = Sheets("Contacts").Cells(2, 3).Value 'Nom
Cells(3, 9).Value = Sheets("Contacts").Cells(2, 2).Value 'Prenom
Cells(2, 9).Value = Sheets("Contacts").Cells(2, 1).Value 'SociŽtŽ
Cells(5, 10).Value = Sheets("Contacts").Cells(2, 6).Value 'Commune
Cells(4, 9).Value = Sheets("Contacts").Cells(2, 4).Value 'Adresse
Cells(5, 9).Value = Sheets("Contacts").Cells(2, 5).Value 'Code postal
Cells(6, 4).Value = Date 'Date d'aujourd'hui
Cells(11, 3).Value = Sheets("Contacts").Cells(2, 8).Value 'Batiment
Cells(12, 3).Value = Sheets("Contacts").Cells(2, 7).Value 'Puissance souscrite
Cells(11, 10).Value = Sheets("AnalyseConsoMensuelle").Cells(727, 8).Value 'Date début d'analyse
Cells(11, 12).Value = Sheets("AnalyseConsoMensuelle").Cells(7, 8).Value 'Date fin analyse
 
'on travaille sur la courbe de charge
 
 
 Sheets("CourbesInitiales").Shapes("Graphique 1").Select
    Selection.Copy
    Sheets("Rapport").Select
    Range("A35:L47").Select
    ActiveSheet.Paste
 
 
End Sub
le code semble erroné car la plage de destination se sélectionne mais aucun graphique n'apparait...

Merci par avance de vos conseils.

A + !