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