Aide VBA Excel: insertion d'une nouvelle ligne

Bonjour à tous,

Ca fait 3 jours que je perds mes cheveux et vu mon faible niveau j'appelle à l'aide... J'essaye d'analyser un jeu de donnée.

J'ai une feuille dans laquelle j'ai 2 colonnes. La colonne A: est le temps, minute après minute sur un mois. La colonne B: est une hauteur.
A la fin je dois avoir un fichier affichant seulement les hauteurs toutes les 30minutes.
Le soucis c'est qu'il me manque des données.
C'est pour cela que j'essaye d'insérer une ligne toute les minutes manquante en lui affectant NA dans la colonne en hauteur. Ensuite je récupère que les valeurs toutes les 30min.
J'ai déjà écrit un script dont je me suis inspiré d'un ancien post de ce forum (Aide VBA Excel : Inserer des lignes sous condition [Résolu]) mais ça ne marche pas.

Je vous mets le script si cela peut vous aider à mieux comprendre mon pb (dsl si il arrache les yeux à certains...) :

Sub test()

rCell As Range

For Each rCell In Sheets("Feuil1").Range("B3:B")
'Si valeur cellule égale B2 de Feuil10
If rCell = TMP0 Then
'Alors insérer une ligne en ligne 10 (par exemple)
With Sheets("Feuil1")
.Rows("rCell.Row+1").Insert Shift:=xlDown
'Complète la ligne insérée avec les données manquantes
.Cells(rCell.Row + 1, 1).Value = Sheets("Feuil1").Cells(rCell.Row, 1 + 0.02).Value
.Cells(rCell.Row + 1, 2).Value = "NA"
End With
End If

Next rCell

End Sub