histogramme avec affichage pourcentage

Private Sub CommandButton1_Click()
Dim s As Byte, p As Byte, txt As String
For s = 1 To 4
  For p = 1 To 2
    txt = [A2].Offset(s, p)
    If CommandButton1.Caption Like "*pourcent" Then txt = Format(txt / [A7].Offset(, p), "0%")
    Me.ChartObjects("Graphique 1").Chart.SeriesCollection(s).Points(p).DataLabel.Text = txt
  Next
Next
CommandButton1.Caption = "Afficher " & IIf(CommandButton1.Caption Like "*pourcent", "valeur", "pourcent")
End Sub

Private Sub CommandButton1_Click()
CommandButton1.Caption = "Afficher " & IIf(CommandButton1.Caption Like "*pourcent", "valeur", "pourcent")
Affiche
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Affiche
End Sub

Sub Affiche()
Dim s As Byte, p As Byte, txt As String
For s = 1 To 4
  For p = 1 To 2
    txt = [A2].Offset(s, p)
    If CommandButton1.Caption Like "*valeur" Then txt = Format(txt / [A7].Offset(, p), "0%")
    Me.ChartObjects("Graphique 1").Chart.SeriesCollection(s).Points(p).DataLabel.Text = txt
  Next
Next
Application.OnRepeat "", ""
End Sub