Echelle des abscisses réticente...

[Marm]

Bonjour à tous,

Je viens récemment de passer sous excel 2007, et je me retrouve avec un problème. J'ai écrit ce petit bout de code qui me crée un graphique dynamique en fonction d'une plage de temps définie, qui n'est peut être pas très "joli" mais qui fonctionne bien.

Sub ChartOngletGraph()

Dim MyChart As Chart
Dim DateDebut As Integer
Dim DateFin As Integer
Dim DataRange As Range

    DateDebut = Sheets("Interprétation").Cells(1, 3).Value
    DateFin = Sheets("Interprétation").Cells(2, 3).Value
'les valeurs des lignes correspondants aux dates entrées en B1 et B2 sont en C1 et C2
     
    Set DataRange = Sheets("Analyse").Range(Sheets("Analyse").Cells(DateDebut, 1), Sheets("Analyse").Cells(DateFin, 5))
    Set MyChart = Sheets("Graphiques").ChartObjects.Add(0, 0, 643, 340).Chart

    MyChart.SetSourceData Source:=DataRange
    MyChart.ChartType = xlStockOHLC
        With MyChart
            .SetElement msoElementLegendNone
            .SetElement msoElementPrimaryValueAxisTitleNone
            .SetElement msoElementPrimaryCategoryAxisTitleNone
            .Axes(xlPrimary).MinimumScale = Cells(1, 1)
            .Axes(xlPrimary).MaximumScale = Cells(2, 1) + 7
            .Axes(xlValue).MinimumScale = Cells(1, 2) - 100
            .Axes(xlValue).MaximumScale = Cells(2, 2) + 100
        End With

End Sub

Mon problème est que la plage de données en abscisse est une suite de dates. Dès lors que je crée le graphique, il y a des espaces pour chaque week end. Ce sujet a déjà été abordé ici préconisant l'astuce du "categoryscale".
J'ai donc entré cette ligne de code en plus " .Axes(xlCategory).CategoryType = xlCategoryScale", mais là malheur, plus rien de fonctionne, et j'ai une erreur sur mes échelles variables.
Comment procéder pour résoudre cette difficulté?

Merci de votre aide !!