Découpe AUTO de colonne XLS en format txt - VBA Excel

Bonjour

On m 'a donné ce code sous EXCEL , or j'ai pas excel mais open office ou star office

J'ai un message d'erreur ERREUR SYNTAXE - Range inconnu


Voici la formule VBA sous excel, QUELQU' UN PEUT ME LA CONVERTIR EN open office ??

j'ai 144 colonnes dans ma Feuille3 à convertir dans 144 fichiers texte.

VOICI MON TABLEAU je commence à
B1 à DT1
! !
! !
! !
B84 à DT84


VOICI LA FORMULE QU'ON M'A DONNé :
******************************************************************
Sous Excel :

Aller sous VBE
[Alt] + [F11]

Clic droit sur le nom du classeur dans partie gauche
Choisir [Insertion/Module]

Dans le fenêtre de droite, faire un copier/coller de la
procédure ci-dessous :

Sub FormatTexte()

Dim objFSO As Object, objFichier As Object
Dim strFichier As String, Plage As Range
Dim Ligne As Long, Colonne As Long
Dim strLigne As String

' Chemin d'accès au fichier
strFichier = ThisWorkbook.Path & "\1.html"
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Création d'un fichier
Set objFichier = objFSO.CreateTextFile(strFichier, 2)
' Sélection de la plage à couvrir
Set Plage = Range("A1:C5")
strLigne = ""
' Pour chaque ligne de la sélection
For Ligne = 1 To Plage.Rows.Count
' Pour chaque colonne de la sélection
For Colonne = 1 To Plage.Columns.Count
' Si dernière colonne, place code saut de ligne en html
If (Colonne = Plage.Columns.Count) Then
strLigne = strLigne & Cells(Ligne, Colonne).Value & "<BR>"
Else
' Sinon, ajoute un espace entre chaque saisie
strLigne = strLigne & Cells(Ligne, Colonne).Value & " "
End If
Next Colonne
' Écrire nouvelle ligne
objFichier.WriteLine strLigne
Next Ligne
' Fermeture du fichier
objFichier.Close

End Sub
'


Ensuite, sous Excel :

//Outils/Macro/Macro...
Choisir [FormatTexte]

Voir le fichier [1.html] dans le même dossier que le fichier excel.
*********************************************************************************

Mais j'ai erreur de SYNTAXE, range inconnue

Que faut il que je change ou remplace dans cette formule excel pour open office

OU ALORS, faut il que j'adapte la formule ??

MERCI DE VOTRE AIDE

Je ne trouve rien dans les moteurs de recherche

J'offre volontiers une boite de chocolat à celui qui me denoue ce sac de noeux.

MERCI DE VOTRE BON COEUR

LUCKISURF