Sub Graph_Evol_Alloc()
'
' Graph_Evol_Alloc Macro, creation du graph de l'alloc pour chaque asset
'
'variables pour l'affichage
Dim fichier, onglet, cell_debut, cell_fin, plage As String
' Avec l'objet conteneur : feuille "Graphiques"
With Sheets("Graphiques")
fichier = .Range("$C$6").Value
onglet = .Range("C$11").Value
cell_debut = .Range("$D$12").Value
cell_fin = .Range("$D$13").Value
plage = cell_debut & ":" & cell_fin
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Workbooks(fichier).Sheets(onglet).Range(plage)
ActiveChart.ChartType = xlAreaStacked100
ActiveChart.ApplyLayout (3)
End With
End Sub