Macro création série de graphiques

Const cte_Position1 = 60

Dim intMaximum As Integer, Longueur As Integer
Dim datHeure As Variant, strReponse As String
Dim Dummy As Variant, Position As Long
Dim Plage As Range, lngBoucle As Long

Function PremierGraphique()

    Dim rngCible As Range, strChaine As String, Compteur As Long

    Sheets(strNomFleGraph).Select
    ActiveSheet.ChartObjects("Graphique 6").Activate
    ActiveChart.ChartTitle.Select
    Selection.Characters.Text = "Incidents " & strNomClient & Chr(10) & "Année : " & LAnnee

    ActiveChart.ChartArea.Select

    ' Nom de la collection 1
    Set rngCible = Sheets(strNomFleMaitre).Range("B5")
    ActiveChart.SeriesCollection(1).Name = rngCible

    ' Valeur de la collection 1
    strChaine = "C" & BlocSection(0).AdrTot & ":N" & BlocSection(0).AdrTot
    Set rngCible = Sheets(strNomFleMaitre).Range(strChaine)
    ActiveChart.SeriesCollection(1).Values = rngCible

    ' Abscisse de la collection 1
    Set rngCible = Sheets(strNomFleMaitre).Range("C1:N1")
    ActiveChart.SeriesCollection(1).XValues = rngCible

    ' Nom de la collection 2
    strChaine = "B" & (BlocSection(0).AdrFin + 1)
    Set rngCible = Sheets(strNomFleMaitre).Range(strChaine)
    ActiveChart.SeriesCollection(2).Name = rngCible

    ' Valeur de la collection 2
    strChaine = "C" & (BlocSection(0).AdrFin + 1) & ":N" & (BlocSection(0).AdrFin + 1)
    Set rngCible = Sheets(strNomFleMaitre).Range(strChaine)
    ActiveChart.SeriesCollection(2).Values = rngCible

    ' Abscisse de la collection 2
    Set rngCible = Sheets(strNomFleMaitre).Range("C1:N1")
    ActiveChart.SeriesCollection(2).XValues = rngCible

    intMaximum = Application.WorksheetFunction.Max(Sheets(strNomFleMaitre).Range("C5:N5"))
    ActiveChart.Axes(xlValue).Select
    If (intMaximum > 5) Then
        Dummy = Round((intMaximum / 10) + 0.5)
        intMaximum = CInt(Val(Dummy * 10) + 10)
        With ActiveChart.Axes(xlValue)
            .MinimumScale = 0
            .MaximumScale = intMaximum
            .MajorUnit = Round((intMaximum / 4) + 0.5)
            .MinorUnit = Round((intMaximum / 4) + 0.5)
        End With
    Else
        With ActiveChart.Axes(xlValue)
            .MaximumScale = 5
            .MajorUnit = 1
            .MinorUnit = 1
        End With
    End If

    Range("A1").Select

End Function