Sheets("Données ciblées").Select
Lig2 = 1
While Cells(Lig2, 1).Value <> ""
NumLig2 = NumLig2 + 1
Lig2 = Lig2 + 1
Wend
Sheets("Graphique ciblé " & i).Select
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = Sheets("Données ciblées").range("E2").Value
ActiveChart.Axes(xlCategory).MaximumScale = Sheets("Données ciblées").Cells(NumLig2,5).Value