XL 2010 Mettre des noms sous une courbe en fonction des valeurs

Private Sub CommandButton1_Click()
Dim test As Boolean, t, i&
Application.ScreenUpdating = False
test = CommandButton1.Caption Like "Afficher*"
With ChartObjects(1).Chart
  .SetElement IIf(test, msoElementPrimaryCategoryAxisNone, msoElementPrimaryCategoryAxisShow) 'masque/affiche l'axe
  .Axes(xlCategory).AxisTitle.Text = IIf(test, " ", "Pk (m)") 'masque/affiche le titre de l'axe
  With .SeriesCollection(2)
    .HasDataLabels = False 'RAZ
    If test Then
      t = [I6].CurrentRegion.Resize(, 2) 'I6 à adapter
      For i = 2 To UBound(t)
        .Points(i - 1).ApplyDataLabels
        .DataLabels(i - 1).Text = t(i, 2)
      Next
      If i > 2 Then
        With .DataLabels
          .Position = xlLabelPositionBelow
          .Orientation = xlUpward
          .Format.TextFrame2.TextRange.Font.Bold = msoTrue 'gras
        End With
      End If
    End If
  End With
End With
CommandButton1.Caption = IIf(test, "Masquer", "Afficher") & " les stations"
End Sub