Mettre un point sur graphe par VBA

' pour cacher le point de la série "essai"
Private Sub CommandButton1_Click()
    With ChartObjects(1).Chart.SeriesCollection("essai")
      .Border.LineStyle = xlNone
      .MarkerStyle = xlNone
    End With
End Sub

' pour montrer le point de la série "essai
Private Sub CommandButton2_Click()
    With ChartObjects(1).Chart.SeriesCollection("essai")
      .Border.Weight = xlHairline
      .Border.LineStyle = xlNone
      .MarkerBackgroundColorIndex = 40
      .MarkerForegroundColorIndex = 3
      .MarkerStyle = xlCircle
      .Smooth = True
      .MarkerSize = 5
      .Shadow = False
    End With
End Sub