Compléter les lignes absentes dans "LibreOffice -Calc"

Bonjour,

Comment puis-je compléter les lignes manquantes en prenant celle du dessus ou du dessous.
Ce qui doit faire au total 1440 lignes.

Sur l'exemple, il manque plusieurs lignes.
Voir là ou il y a les cellules en jaunes

Le code pour Excel est le suivant :

Sub RétablirLignesManquantes()
Dim lgn, n&, i&, j%, k%, t&, dt&
With Worksheets("Récupération des donnees")
n = .Cells(.Rows.Count, 1).End(xlUp).Row
t = (.Cells(n, 2) \ 100) Mod 100 + (.Cells(n, 2) \ 10000) * 60
Application.ScreenUpdating = False
For i = n To 3 Step -1
t = (1440 + t - 1) Mod 1440
dt = (.Cells(i - 1, 2) \ 100) Mod 100 + (.Cells(i - 1, 2) \ 10000) * 60
If dt <> t Then
j = t - dt - 1: lgn = .Cells(i - 1, 1).Resize(, 62).Value
.Range(.Cells(i, 1), .Cells(i + j, 1)).EntireRow.Insert
For k = 0 To j
.Cells(i + k, 1).Resize(, 62).Value = lgn
.Cells(i + k, 2) = (((dt + k + 1) \ 60) * 100 + (dt + k + 1) Mod 60) * 100
Next k
t = dt
End If
Next i
End With
End Sub

Mais comment faire avec "LibreOffice-Calc" ?
Voici une capture du fichier.

Je ne vois pas comment mettre un fichier.

Merci de votre aide
Cordialement