Cells(i, "C")= Format(Cells(i, "B"), "dd/mm/yyyy hh:mm:ss")
For i = 1 to [B65000].End(xlup).row
Sub Macro1()
With Range([A1], [A1000000].End(xlUp)).Offset(, 1)
.FormulaR1C1 = "=IF(RC1>1,RC1,INT(OFFSET(RC,-1,0))+RC1)"
.NumberFormat = "dd/mm/yyyy hh:mm:ss"
.Value = .Value
End With
End Sub
Sub remplir()
Columns("C:C").NumberFormat = "dd/mm/yyyy hh:mm:ss"
tablo = Range("B1:C" & Range("B" & Rows.Count).End(xlUp).Row)
tablo(1, 2) = tablo(1, 1)
For n = LBound(tablo, 1) + 1 To UBound(tablo, 1)
tablo(n, 2) = tablo(1, 1) + tablo(n, 1)
Next
Range("B1").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
End Sub