Sub test_graphique()
Dim MonGraphe As Chart, MaPlage As Range
Dim res As String
Workbooks("test macro2.xls").Worksheets("Feuil2").Activate
Charts.Add
With ActiveChart
.ChartType = xlXYScatter
.Location Where:=xlLocationAsNewSheet
.SeriesCollection.NewSeries
.SeriesCollection(1).Values = Sheets("Feuil2").Range("Taux_horaire")
.SeriesCollection(1).XValues = Worksheets("Feuil2").Range("MOQ")
.SeriesCollection(1).Name = "taux"
.SeriesCollection(1).Trendlines.Add
.SeriesCollection(1).Trendlines(1).Select
With Selection
.Type = xlLogarithmic
End With
End With
End Sub