Amis du forum bonjour

Je rencontre un problème au remplissage d'un graphique. J'ai le message d'erreur 1004.
Voici mon code
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
41
42
43
44
45
46
47
48
49
50
51
52
53
Range("A2").Select
cel1 = ActiveCell.Offset(0, 0).Address
cel3 = ActiveCell.Offset(0, 1).Address
Selection.End(xlDown).Select
cel2 = ActiveCell.Offset(0, 0).Address
cel4 = ActiveCell.Offset(0, 1).Address
Set zone_1 = Range((cel1), (cel2))
Set zone_2 = Range((cel3), (cel4))
multi_zones_1 = Union(zone_1, zone_2).Select
zone_Top_1 = Selection.Address
Selection.End(xlDown).Select
Selection.End(xlDown).Select
cel5 = ActiveCell.Offset(1, 0).Address
cel6 = Range("A100").End(xlUp).Address
cel7 = ActiveCell.Offset(1, 1).Address
cel8 = Range("B100").End(xlUp).Address
Set zone_3 = Range((cel5), (cel6))
Set zone_4 = Range((cel7), (cel8))
multi_zones_2 = Union(zone_3, zone_4).Select
zone_Top_2 = Selection.Address
'------------------------------------------------------------------------------------------------------
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("RNI").Range(zone_Top_1), PlotBy:=xlColumns
ActiveSheet.ChartObjects("Graphique 1").Activate
'------------------------------------------------------------------------------------------------------
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("RNI").Range(zone_Top_2), PlotBy:=xlColumns
ActiveSheet.ChartObjects("Graphique 2").Activate
'------------------------------------------------------------------------------------------------------
Range("C2").Select
cel9 = ActiveCell.Offset(0, 0).Address
Selection.End(xlDown).Select
cel10 = ActiveCell.Offset(0, 0).Address
cel11 = ActiveCell.Offset(3, 0).Address
cel12 = Range("C100").End(xlUp).Address
Set zone_5 = Range((cel9), (cel10))
Set zone_6 = Range((cel11), (cel12))
multi_zones_3 = Union(zone_1, zone_5).Select
zone_Top_3 = Selection.Address
multi_zones_4 = Union(zone_3, zone_6).Select
zone_Top_4 = Selection.Address
'------------------------------------------------------------------------------------------------------
ActiveSheet.ChartObjects("Graphique 3").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("RNI").Range(zone_Top_3), PlotBy:=xlColumns
ActiveSheet.ChartObjects("Graphique 3").Activate
'------------------------------------------------------------------------------------------------------
ActiveSheet.ChartObjects("Graphique 4").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("RNI").Range(zone_Top_4), PlotBy:=xlColumns
ActiveSheet.ChartObjects("Graphique 4").Activate
Les graphiques sont déjà créés, ainsi que les données car je les récupère d'un autre fichier, mais pour qu'à l'ouverture du nouveau fichier créé je n'ai pas de message d'alerte, je suis obligé de leur affecter les valeurs du nouveau fichier. Suis-je assez clair

Merci de votre aide

J'ai oublié de dire que le massage d'erreur arrive là :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveChart.SetSourceData Source:=Sheets("RNI").Range(zone_Top_3), PlotBy:=xlColumns