utiliser une date et heure au format atypique pour créer un graphique orthonormé.

Dim n&, nf&, tablo(), ub& 'mémorise les variables

Function Import()
Application.Volatile
Dim a, b, fichier$, x$, i&, j%
n = n + 1
If n = 1 Then
    nf = Application.Caller.EntireColumn.SpecialCells(xlCellTypeFormulas).Count 'nombre de formules
    a = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
    b = Array("janv", "fév", "mars", "avr", "mai", "juin", "juil", "août", "sept", "oct", "nov", "déc")
    fichier = ThisWorkbook.Path & "\CSV.csv" 'à adapter
    Open fichier For Input As #1 'accès au fichier CSV
    Do While Not EOF(1) 'EOF = End Of File
        Line Input #1, x 'récupère la ligne
        i = i + 1
        ReDim Preserve tablo(1 To i)
        For j = 0 To 11
            x = Replace(x, a(j), b(j))
        Next j
        x = Replace(x, "at ", "")
        x = Replace(x, " CET", "")
        x = Replace(x, " CEST", "")
        If IsDate(x) Then tablo(i) = CDate(x) Else tablo(i) = ""
    Loop
    Close #1
    ub = UBound(tablo)
End If
i = Application.Caller.Row
If i > ub Then Import = "" Else Import = tablo(i)
If n >= nf Then n = 0: Erase tablo 'RAZ
End Function