Sub JANVIER()
Sheets("STATISTIQUES MENSUELLES").Select
Workbooks.Add
Range("B3").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Workbooks("TCDxld.xls").Sheets("STATISTIQUES MENSUELLES").Range("B10:C" & Workbooks("TCDxld.xls").Sheets("STATISTIQUES MENSUELLES").Range("D7").Value), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="F1"
ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, _
ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.PlotArea.Select
ActiveChart.Axes(xlValue).Delete
ActiveChart.PlotArea.Select
ActiveChart.HasDataTable = True
ActiveChart.DataTable.ShowLegendKey = True
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Characters.Text = "Signalements"
ActiveChart.Legend.Delete
ActiveWindow.Visible = False
Application.DisplayAlerts = 0
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Graphe JANVIER.xls"
Application.DisplayAlerts = 1
End Sub