Afficher une colonne de temps

=SI(A$11+LIGNES($12:12)/(24*3600)>E$6;"";A$11+LIGNES($12:12)/(24*3600))

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lig As Long, t As Date
    Const s As Date = 1 / 24 / 3600
    If Target.Cells.Count > 1 Then Exit Sub
    If Not (Target = [B6] Or Target = [E6]) Or Not (IsDate([B6]) Or IsDate([E6])) Then Exit Sub
    If [B6] >= [E6] Then Exit Sub
    If MsgBox("Créer la liste ?", vbYesNo) = vbNo Then Exit Sub
    '
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    lig = Cells(Rows.Count, 1).End(xlUp).Row
    If lig > 11 Then [A11].Resize(lig - 11, 1).ClearContents
    '
    lig = 11: t = [B6]
    Do
        Cells(lig, 1) = t
        t = t + s
        lig = lig + 1
    Loop Until t >= [E6] + s
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub