Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("pluviométrie").Range("" & lettre_colonne & "" & ligne), PlotBy _
:=xlRows
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=meteo!R" & ligne_premier_jour & "C2:R" & ligne_premier_jour_suivant & "C2"
ActiveChart.SeriesCollection(1).Values = "=meteo!R" & ligne_premier_jour & "C14:R" & ligne_premier_jour_suivant & "C14"
ActiveChart.SeriesCollection(1).Name = "=""pluviométrie instantannée"""
[B]ActiveChart.SeriesCollection(2).Values = "=meteo!R" & ligne_premier_jour & "C15:R" & ligne_premier_jour_suivant & "C15"[/B]
ActiveChart.SeriesCollection(2).Name = "=""pluviométrie totale"""
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="" & mois_ecrit