XL 2013 Graphique tableaux VBA

Bonjour

je dispose de trois tableaux créés en VBA qui se remplissent dans des boucles et je souhaite tracer un graphique de ces derniers.

Je n'ai aucune idée du code à implémenter.

Auriez vous des pistes svp

merci

Bonjour,

Merci de joindre un fichier à ta demande afin que le forum puisse t'apporter une aide adaptée.

Cdlt.

Sub moyenne()

Dim moy As Integer
Dim i As Integer
Dim j As Integer
i = 1
Dim moyt1 As Currency
Dim moyt0 As Currency
Dim moyt2 As Currency
Dim sommet1 As Currency
Dim sommet2 As Currency
Dim sommet0 As Currency
Dim tableaut0() As Currency
Dim tableaut1() As Currency
Dim tableaut2() As Currency

Dim t As Integer

t = 1
ReDim tableaut0(t)

Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Feuille1")
    NoCol = 3 'lecture de la colonne C
    NoLig = 40
    Dim max As Integer
    max = Split(FL1.UsedRange.Address, "$")(4)

    While NoLig < max
        Var = FL1.Cells(NoLig, NoCol)

        If i <= 5 Then
            sommet0 = sommet0 + Var
        End If

        If i <= 10 And i > 5 Then
            sommet1 = sommet1 + Var
        End If
        If i <= 15 And i > 10 Then
            sommet2 = sommet2 + Var
        End If

        i = i + 1

        If i = 15 Then
            i = 0
            moyt0 = sommet0 / 5
            tableaut0(t) = moyt0
            MsgBox (tableaut0(t))
            t = t + 1
            ReDim tableaut0(t)
            sommet0 = 0

        End If

        NoLig = NoLig + 1

    Wend

End Sub