OPEN;OFFICE;CALC : Affichage cellule de TEXTE

Bonjour,
je n'arrive pas à éditer une cellule contenant du TEXTE (Affichage = 0)
Dans la "Feuille1" j'effectue un test, si OK j'insere la ligne complete dans "Feuille2"
Je vous remercie de votre aide,
Très cordialement.

Voici ma MACRO:
Sub CollageInsertion
' déclaration des variables
Dim i As Integer
Dim j As Integer
Dim wkb As Object
Dim wks1 As Object
Dim wks2 As Object
Dim cell1 As String
Dim cell2 As String

' affectation
wkb = thisComponent
wks1 = thisComponent.Sheets.getByName("Feuille3")
wks2 = thisComponent.Sheets.getByName("Feuille4")

j=9

' test des valeurs

For i = 1 to 60
If wks1.getCellRangeByName("H" & i).Value <10 or wks1.getCellRangeByName("H" & i).Value >13 then
Else
wks2.getCellRangeByName("A" & j).Value = wks1.getCellRangeByName("A" & i).Value
wks2.getCellRangeByName("C" & j).Value = wks1.getCellRangeByName("C" & i).Value
wks2.getCellRangeByName("E" & j).Value = wks1.getCellRangeByName("E" & i).Value
wks2.getCellRangeByName("G" & j).Value = wks1.getCellRangeByName("G" & i).Value
wks2.getCellRangeByName("I" & j).Value = wks1.getCellRangeByName("I" & i).Value
wks2.getCellRangeByName("K" & j).Value = wks1.getCellRangeByName("K" & i).Value
wks2.getCellRangeByName("M" & j).Value = wks1.getCellRangeByName("M" & i).Value
wks2.getCellRangeByName("O" & j).Value = wks1.getCellRangeByName("O" & i).Value
wks2.getCellRangeByName("Q" & j).Value = wks1.getCellRangeByName("Q" & i).Value
j = j+1
end if
Next i
End Sub

PS: Les cellules C,E Q sont les cellules qui devraient afficher un texte.