Bonjour BIBI
Un exemple de code pour tracer 1 histo
il faut maintenant chercher un peu pour générer les 2956 restants.
une petite boucle peut-être !
Sub graphique()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets('Feuil1').Range('D3:V3'), PlotBy:= _
xlRows
ActiveChart.SeriesCollection(1).XValues = '=Feuil1!R1C4:R1C22'
ActiveChart.Location Where:=xlLocationAsObject, Name:='Feuil1'
End Sub