Style de trait dans graphique

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .DashStyle = msoLineSysDot
    End With
    ActiveWindow.SmallScroll Down:=3
End Sub

ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(1).Format.Line.DashStyle = msoLineSysDot

Sub test()
  For i = 1 To 4
 ActiveSheet.ChartObjects("Graphique 1").Activate
    With ActiveChart.SeriesCollection(1)
        'Stop
       .MarkerStyle = xlDashxlMarkerStyleNone
    '.MarkerSize = 7
    '.Border.LineStyle = xlDash
    If i = 1 Then .Format.Line.DashStyle = msoLineSolid: MsgBox .Format.Line.DashStyle
    If i = 2 Then .Format.Line.DashStyle = msoLineDash: MsgBox .Format.Line.DashStyle
    If i = 3 Then .Format.Line.DashStyle = msoLineSysDot: MsgBox .Format.Line.DashStyle
    If i = 4 Then .Format.Line.DashStyle = msoLineRoundDot: MsgBox .Format.Line.DashStyle
     ActiveSheet.Cells(1, 1).Select
    End With
     'MsgBox i
    Next
End Sub