VBA Données sources d'un graphiques et variables

ActiveChart.SeriesCollection(1).Values = Sheets("BACTERIO").Range("D" & deb & ":D" & fin)
[\CODE]

Cela ne marche pas non plus.

A+, Matt

Dim fin As Integer
Dim deb As Integer
deb = CInt(TextBox2.Value)
fin = CInt(TextBox1.Value)

Private Sub CommandButton1_Click()
Dim fin As Integer
Dim deb As Integer
deb = CInt(TextBox2.Value)
fin = CInt(TextBox1.Value)
Dim a As Variant
a = "=BACTERIO!R" & deb & "C4:R" & fin & "C4"
'On Error Resume Next

ActiveSheet.ChartObjects("Graphique 5").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Values = Sheets("BACTERIO").Range("D" & deb & ":D" & fin)
ActiveChart.SeriesCollection(2).Values = "=BACTERIO!R" & deb & "C5:R" & fin & "C5"
ActiveChart.SeriesCollection(3).Values = "=BACTERIO!R" & deb & "C6:R" & fin & "C6"

Private Sub CommandButton1_Click()
Dim cht As ChartObject, i%
deb = CInt(TextBox2)
fin = CInt(TextBox1)
Application.ScreenUpdating = False
With ActiveSheet
    Set cht = .ChartObjects(1)
    With cht.Chart
        .ChartType = xlColumnClustered
        For i = .SeriesCollection.Count To 1 Step -1
            .SeriesCollection(i).Delete
        Next
        For i = 1 To 12
            .SeriesCollection.NewSeries
            .SeriesCollection(i).Name = ActiveSheet.Cells(4, i + 3)
            .SeriesCollection(i).XValues = ActiveSheet.Range(ActiveSheet.Cells(deb, 3), ActiveSheet.Cells(fin, 3))
            .SeriesCollection(i).Values = ActiveSheet.Range(ActiveSheet.Cells(deb, i + 3), ActiveSheet.Cells(fin, i + 3))
        Next
        .ChartType = xlLineMarkers
    End With
End With
End Sub