Sub meform()
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Select
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).Select
ActiveChart.PlotArea.Select
Selection.Width = 178
ActiveChart.PlotArea.Select
ActiveChart.ChartGroups(1).RadarAxisLabels.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
[B].Size = 6[/B]
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
ActiveWindow.Visible = False
Windows("Nom_de_mon_fichier.xls").Activate
End Sub