Bonjour,
Yé! j'ai trouvé mais je ne sais pas comment publier ma macro correctement!
S'cusez la mise en forme inadéquate de ladite macro.
Sub Source_X_Graphique_Actif()
ActiveSheet.ChartObjects("Graphe").Activate
s = ActiveChart.SeriesCollection(1).Formula
s = Right(s, Len(s) - InStr(1, s, ","))
Set x = Range(Left(s, InStr(1, s, ",") - 1))
ligne = x.Row
colonne = x.Column
Cells(ligne, colonne).Select
End Sub
Serge