With Grph .Left = Emplacement.Left .Top = Emplacement.Top .Height = Emplacement.Height .Width = Emplacement.Width .Border.LineStyle = 0 .Interior.ThemeColor = 0 End With
ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.PlotArea.Format.Fill.Transparency = 0.9 ActiveChart.ChartArea.Format.Fill.Transparency = 0.9
Set Grphtt = ActiveSheet.Shapes("Graphique 2") With Grphtt .Fill.Visible = msoFalse End With