Sub Génerer_3ème_variable()
Dim tablo1, tablo2, tablo3(), dep As Date, h As Date, i&
tablo1 = Feuil1.Range("A3:B" & [A65536].End(xlUp).Row)
tablo2 = [D3:E3].Resize(UBound(tablo1))
ReDim tablo3(1 To UBound(tablo1), 1 To 3)
dep = tablo1(1, 2)
1 h = 0 'RAZ
For i = 1 To UBound(tablo1)
tablo3(i, 1) = tablo1(i, 1)
tablo3(i, 2) = tablo1(i, 2)
h = h + tablo2(i, 2) / 1440
tablo3(i, 3) = dep + h
If Round(1440 * tablo3(i, 3)) > Round(1440 * tablo1(i, 2)) _
Then dep = tablo1(i, 2) - h: GoTo 1
Next
[G3:I3].Resize(UBound(tablo3)) = tablo3 'restitution
End Sub