Création Graphique

Bonjour je souhaite créer un Graphe à partir de donnéés cependant je ne comprend pas le problème que j'ai avec mon code

il me dise "il me dise "Erreur definie par l'application ou par l'objet" a cette

ligne " Set Donnees = FL1.Range(FL1.Cells(2, 8), Cells(10,

8).End(xlDown))"

Merci pour votre aide

Sub Macro13()

Dim Graph As Chart
Dim FL1, FLZ1, FLZ2, FLZ3, Gauss1 As Worksheet, NoCol As Integer
Dim NoLig, NoLig1, NoLig2, NoLig3 As Long, Var As Variant, Donnees, Donnees1, Donnees2 As Range

    Set FL1 = Worksheets(1)
    Set FLZ1 = Worksheets(2)
    Set FLZ2 = Worksheets(3)
    Set FLZ3 = Worksheets(4)
    Set Gauss1 = Worksheets(5)
    Set Gauss2 = Worksheets(6)
    Set Gauss3 = Worksheets(7)
    Set Donnees = FL1.Range(FL1.Cells(2, 8), Cells(10, 8).End(xlDown))
    Set Donnees1 = FLZ2.Range(FLZ2.Cells(10, 8), Cells(10, 8).End(xlDown))
    Set Donnees2 = FLZ3.Range(FLZ3.Cells(23, 8), Cells(23, 8).End(xlDown))

    'For NoLig1 = 1 To Split(FL1.UsedRange.Address, "$")(4)
    Set Graphe = ThisWorkbook.Charts.Add
    Graphe.ChartType = xlColumnClustered
    Graphe.SetSourceData FLZ1.Range(FLZ1.Cells(2, 9), FLZ1.Cells(10, 9).End(xlDown))
    'NoLigZ1 = NoLigZ1 + 1
    Graphe.SeriesCollection.NewSeries
    Graphe.SeriesCollection.NewSeries
    Graphe.SeriesCollection.NewSeries
    Graphe.SeriesCollection(1).Values = Donnees
    Graphe.SeriesCollection(2).Values = Donnees1
    Graphe.SeriesCollection(3).Values = Donnees2
    Graphe.Location Where:=xlLocationAsObject, Name:="Graphique"
    'Next

    With Graphe
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub

Bonjour

Il serait plus facile d'expliquer l'erreur si tu joignais le fichier complet.

Bye !