Sub MaJGraph()
Dim Dercel As Range, Plage As Range
Set Dercel = _
Sheets("StatsM05_06").Range("A12:Y12").Find("", LookIn:=xlValues)
Set Plage = _
Sheets("StatsM05_06").Range(Cells(3, 1), Cells(9, Dercel.Column - 1))
ActiveSheet.ChartObjects("Graphique 1").Chart.SetSourceData _
Source:=Plage, PlotBy:=xlRows
End Sub