Dim Graph As ChartObject
Dim i As Integer
Dim MaPlage As Range
Dim Dernonglet As Long
Dim Dern_lg_onglet As Long
Dernonglet = Sheets.Count
'Pour tous les onglets faire un graphique
For i = 3 To Dernonglet
'calcul de la dernière ligne de mon onglet
Worksheets(i).Activate
Dern_lg_onglet = Range("A65536").End(xlUp).Row
Set Graph = Worksheets(i).ChartObjects.Add(400, 50, 400, 200)
Set MaPlage = Worksheets(i).Range(Cells(1, 1), Cells(Dern_lg_onglet, 3))
With Graph.Chart
.ChartType = xlLineMarkers
.SetSourceData MaPlage, xlColumns
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Mois"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Nbre"
.PlotArea.Interior.ColorIndex = 2
.Axes(xlValue).MajorGridlines.Border.LineStyle = xlDot
.ChartArea.Font.Size = 14
.Deselect
End With
Next
End Sub