Sub test()
Dim ws As Worksheet
Dim ws2 As Worksheet
Dim graph As ChartObject
Dim drl As Integer
Dim plageX As Range

Set ws = Worksheets("Indicateurs")
Set ws2 = Worksheets("Tableaux indicateurs")
Set graph = ws.ChartObjects(2)
drl = ws2.Range("B" & Rows.Count).End(xlUp).Row
Set plageX = Range(ws2.Cells(drl - 13, 1), ws2.Cells(drl - 1, 1))

ws.unprotect Password:="GOURYG"

With graph.Chart
        .ChartType = xlLineMarkers
        
        .SeriesCollection.NewSeries
    
    With .SeriesCollection(1)
        .Name = "Nb de modifs actuellemet ouvertes"
        .ChartType = xlLineMarkers
        .Values = ws2.Range("B2:B16")
        .XValues = plageX
        .HasDataLabels = True
        With .DataLabels
            .NumberFormat = "##0;($#,##0);"
            .position = xlLabelPositionAbove
        End With
        
    End With

        .SeriesCollection.NewSeries
        
    With .SeriesCollection(2)
        .Name = "Nb de modifs ouvertes dans le mois"
        .ChartType = xlColumnClustered
        .Values = ws2.Range("C2:C16")
        .XValues = plageX
        .HasDataLabels = True
        With .DataLabels
            .NumberFormat = "##0;($#,##0);"
            .position = xlLabelPositionCenter
        End With
    End With
    

        .SeriesCollection.NewSeries
        
    With .SeriesCollection(3)
        .Name = "Nb de modifs fermées dans le mois"
        .ChartType = xlColumnClustered
        .Values = ws2.Range("D2:D16")
        .XValues = plageX
        .HasDataLabels = True
        With .DataLabels
            .NumberFormat = "##0;($#,##0);"
            .position = xlLabelPositionCenter
        End With

    End With

End With

ws.protect Password:="GOURYG"

End Sub