Merci beaucoup pour cet chaleureux accueil. j'ai créer un fichier exemple avec ce nouveau macro.
J'ai un microsoft 365 version 2102.
Voici la macro pour ce fichier.
Sub Macro8()
'
' Macro8 Macro
'
' Touche de raccourci du clavier: Ctrl+m
'
Range("AV7").Select
Sheets("graphe").Select
ActiveSheet.Shapes.AddChart2(227, xlLine).Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = "='Indicateurs 2022'!$C$7"
ActiveChart.FullSeriesCollection(1).Values = "='Indicateurs 2022'!$AV$7:$AZ$7"
ActiveChart.FullSeriesCollection(1).XValues = "='Indicateurs 2022'!$AV$1:$AZ$1"
End Sub