Dim y As Long
y = Columns(11).Find("*", Cells(Rows.Count, 11), xlValues, , 1, 2, 0).Row
Cells(2, 11).Resize(y - 1, 3).Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Feuille_de_Calcul").Selection, PlotBy:=xlColumns