Re bonjour le forum,
Ne cherchez plus, j'ai trouvé, pour ceux que cela interresse voici ma solution
Sub Macro5()
Dim MaDate1 As Date, MaDate2 As Date
MaDate1 = ActiveChart.Axes(xlCategory).MinimumScale
MaDate2 = ActiveChart.Axes(xlCategory).MaximumScale
c = (MaDate2 - MaDate1) / 30
End Sub
Merci à tous ceux qui ont essayé et bonne fin de journée à tous