[Excel 2007]Histogramme:nb de series variable

Private Sub modif() 
Const nbser = "$B$1"   ' cellule nombre de séries 
Const cogr = "B"           ' colonne des données 
Dim lideb As Long          ' ligne 1° sériie de données 
Dim lifin As Long            ' ligne derniere serie 
Dim plage As String       ' plage des données 
  lideb = 6 
  lifin = lideb + Range(nbser).Value - 1 
  plage = cogr & lideb & ":" & cogr & lifin 
  With ChartObjects(1).Chart 
    .SetSourceData Source:=Sheets("Feuil1").Range(plage), PlotBy:=xlRows 
  End With 
End Sub 

Private Sub CommandButton1_Click() 
  Call modif 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 
  If Target.Address = "$B$1" Then 
    Call modif 
  End If 
End Sub