Dim Name As String
Dim Colone As Integer
Dim Derniere_Ligne As Integer, Premiere_Ligne as Integer
Dim selection As String
Dim graph As Object
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("NetPerf_Global").Activate
Derniere_Ligne = Range("B65536").end(xlup).row
Do until cells(Derniere_ligne,3).value = "On Time" and cells(Derniere_ligne,2).value = "transporteur 1"
Derniere_ligne = Derniere_ligne -1
Loop
Premiere_Ligne = 1
Do until cells(Premiere_ligne,2).value = "transporteur 1"
Premiere_ligne = Premiere_ligne +1
Loop
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range(Cells(Premiere_ligne, 2), Cells(Derniere_Ligne, 3))
ActiveChart.ChartType = xl3DPieExploded
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ApplyLayout (6)
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartTitle.Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartTitle.Text = "Accountability"
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select