[calc] remplir cellules vides d'une colonne

Bonjour à tous,

J'essaie de faire une macro sous Calc de Open Office qui remplirait automatiquement par "pas de champ" lorsqu'une cellule de ma colonne est vide.
Donc ma colonne (I1:I15) est une alternance de cellules remplies de texte et de cellules vides. Je veux remplir les cellules vides sans que le texte des cellules pleines ne soit changé.

Pour l'instant j'ai fait ça en m'inspirant à droite à gauche sur internet, mais ça marche pas...

Dim oSheet As Object
Dim oCell As Object
Dim k as Integer

oSheet = ThisComponent.Sheets(0)

For k=1 To 16
oCell = oSheet.getCellByPosition(8,k-1)
If oCell.getValue <> "" Then
k=k+1
Else
oCell.SetString( "pas de champ")
End If
Next k

Si vous pouviez m'aider je vous serai très reconnaissant.