Merci de ton coup de main Creeps,
voilà mon code pour tracer un graph. TEMP1 et TEMP2 remplacent R8C3:R8C et R9C3:R9C.
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets('Graph').Range('C15')
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = '=TabRécapTNQ!R' & TEMP1 & 'C4:R' & TEMP2 & 'C4' ' colonne semaine
ActiveChart.SeriesCollection(1).Values = ''=TabRécapTNQ!'R' & TEMP1 & 'C12:R' & TEMP2 & 'C12' ' Colonne TQ
ActiveChart.SeriesCollection(1).Name = '=''NC'''
ActiveChart.Location Where:=xlLocationAsObject, Name:='TabRécapTNQ'
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel, LegendKey:=False