Problème partiel avec résultats fonction Format

Bonjour à tous,

J'éprouve un petit problème avec ma fonction Format. En gros, j'ai un tableau avec des données et dans la dernière colonne de tableau j'ai des dates. Ces données me servent pour dessiner un graphique et je voulais que les dates sur le graphique (axe des x) soit du 1 janvier au 31 décembre en format "dd-mmm". Je doit donc compléter la colonne en ajoutant les dates manquantes au dessus et en dessous des dates présentent dans mes données . J'ai utilisé des variables pour cette colonne parce que le nombre de colonnes est variable selon le fichier sélectionné.

Alors, j'ai incrémenté une série au dessus de mes données déjà présente qui fonctionne et fais la même chose pour mes données en dessous. Mais la j'ai un petit souci, il incrémente ma date correctement avec le bon format "dd-mmm" jusqu'à la date du 1 septembre ou il me change ça pour le format "aaaa-mm-jj" pour toute les dates de mois de septembre et après il revient au bon format????

J'ai passé mon code étape par étape en plaçant un espion sur mes valeurs de ces deux ligne

Cel.Value = DateAdd("d", 1, Cel.Offset(-1, 0).Value)
Cel.Value = Format(Cel.Value, "dd-mmm")

et tout est correct, il m'affiche le bon format.

Je ne comprend d'où vient se problème? Avez-vous une idée?

Voici mon code:

Option Explicit
Sub graphique()

Dim Grf As ChartObject
Dim Sh As Worksheet
Dim nom As String, DerLig As Integer, i As Integer, DerCol As Integer, DerCell As Integer, Nbre As Integer
Dim col, MyRange As Range, Legende As Boolean, Min As Integer, Max As Integer, Nbrpiezo As Integer, Compteur As Integer
Dim recherche As String, fichier As String, rep As String, ColFin As Integer, plage As Range, Nbgr As Integer
Dim Cptr As Byte, NewCol As Integer, Val As Variant, MaCellule As Variant, MaPlage As Range, L As Integer, Lig As Long, DLig As Long
Dim DLigF As Long, x As Integer, Cel As Range, DLigCol As Integer, NewCol2 As Integer, Coljour, Y As Integer, Date1 As Date

'Ajout d'une feuille pour utiliser pour les graphiques
'________________________________________________________

Sheets(1).Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets(1).Range("B2").Value
Columns("F:I").Delete shift:=xlToLeft

'Manipulations de la feuille pour ajout de colonne
'__________________________________________________

DerCol = Sheets(Sheets.Count).Cells(2, Cells.Columns.Count).End(xlToLeft).Column

Nbre = Application.CountIf(Rows(1), "Sensor*")
    For Cptr = 1 To Nbre / 2
    col = Rows(1).Find("Sensor Temp", Cells(1, DerCol), xlValues).Column
        With Cells(1, col)
            .EntireColumn.Delete
        End With
    Next
  
DerCol = Sheets(Sheets.Count).Cells(2, Cells.Columns.Count).End(xlToLeft).Column
NewCol = DerCol + 1
Cells(1, NewCol).Value = "jj-mmm"
Cells(1, NewCol + 2).Value = "Jours de l'année"
Cells(1, NewCol + 1).Value = "Jours de l'année(lecture)"

DerLig = Range("A" & Rows.Count).End(xlUp).Row

i = 2
With Cells(i, NewCol)
    For i = 2 To DerLig
        Cells(i, NewCol).Value = Format(Cells(i, 5), "dd-mmm")
    Next i
End With

With Columns(NewCol + 1)
    .WrapText = True
    .AutoFit
End With

i = 2
With Cells(i, NewCol + 1)
    For i = 2 To DerLig
        Cells(i, NewCol + 1).Value = DatePart("y", Cells(i, 5))
    Next i
End With

With Columns(NewCol + 2)
    .WrapText = True
    .AutoFit
End With

Cells(2, NewCol + 2).Value = "1"
i = 3
With Cells(i, NewCol + 2)
    For i = 3 To 366
        If Cells(i, NewCol + 2).Value = "" Then
            Cells(i, NewCol + 2).Value = i - 1
        Else
            Cells(i, NewCol + 2).Value = i + 1
        End If
    Next i
End With

'Trouver la valeur du jours de l'année dans 2 colonnes
'______________________________________________________
MaCellule = Cells(2, NewCol + 1)
Set MaPlage = Range(Cells(2, NewCol + 2), Cells(DerLig, NewCol + 2))
Val = Application.Match(MaCellule, MaPlage, 0)

'Copier et coller le tableau vis-à-vis la bonne valeur
'______________________________________________________
Range(Cells(2, 1), Cells(DerLig, NewCol + 1)).Cut
Cells(Val + 1, 1).Select
ActiveSheet.Paste

'Compléter la colonne Jour de l'année(lecture)
'______________________________________________
DLig = Cells(2, NewCol + 1).End(xlDown).Row - 1
i = 2
With Cells(i, NewCol + 1)
    For i = 2 To DLig
        If Cells(i, NewCol + 1).Value = "" Then
            Cells(i, NewCol + 1).Value = i - 1
        Else
            Cells(i, NewCol + 1).Value = i + 1
        End If
    Next i
End With

DLigF = Range("e" & Rows.Count).End(xlUp).Row + 1
x = 364 - Cells(DLigF - 1, NewCol + 1).Value

With Cells(DLigF, NewCol + 1)
    For Each Cel In Range(Cells(DLigF, NewCol + 1), Cells(DLigF + x, NewCol + 1)).Cells
        Cel.Value = Cel.Offset(-1, 0).Value + 1
    Next Cel
End With

'Incrémenter la date de la colonne NewCol
'__________________________________________
DLig = Cells(2, NewCol).End(xlDown).Row - 1

With Cells(DLig, NewCol)
    If Cells(2, NewCol) = "" Then
        Cells(2, NewCol).Value = "01-JAN"
        Cells(2, NewCol).Value = Format(Cells(2, NewCol), "dd-mmm")
    End If
        For Each Cel In Range(Cells(3, NewCol), Cells(DLig, NewCol)).Cells
            Cel.Value = DateAdd("d", 1, Cel.Offset(-1, 0).Value)
            Cel.Value = Format(Cel.Value, "dd-mmm")
        Next Cel
End With

DLigF = Cells(Application.Rows.Count, NewCol).End(xlUp).Row + 1
Date1 = "30 décembre"
Y = DateDiff("d", (Cells(DLigF - 1, NewCol).Value), Date1)
With Cells(DLigF, NewCol)
    For Each Cel In Range(Cells(DLigF, NewCol), Cells(DLigF + Y, NewCol)).Cells
        Cel.Value = DateAdd("d", 1, Cel.Offset(-1, 0).Value)
        Cel.Value = Format(Cel.Value, "dd-mmm")
    Next Cel
End With

N.B: Je vous envoie le début de ma macro, le reste de la macro concerne les graphiques.