Sub Tableau_Ajout(Tableau As ListObject)
Dim y As Long, DerdateHeure As Date, h As Long, a() As Date, i As Long
With Tableau
y = .ListRows.Count
DerdateHeure = Int(24 * .ListRows(y).Range.Cells(1)) / 24
h = 24 * (Date - DerdateHeure)
If h > 0 Then
ReDim a(1 To h, 1 To 1) 'tableau, plus rapide
a(1, 1) = DerdateHeure
For i = 2 To UBound(a)
a(i, 1) = Format(a(i - 1, 1) + 1 / 24, "dd/mm/yyyy hh:mm")
Next
.ListRows(y).Range.Cells(1).Resize(h) = a 'agrandissement du tableau
End If
End With
End Sub