Code pour Taille police et formatage cellule

Bonjour

J'ai un code VBA qui met les lettres en majuscule sur LO auquel je voudrais ajouter une police taille 12 et une mise en forme centré à gauche ....je n'arrive cependant pas à trouver le langage correct...

Le code ci dessous

Merci

Ja

REM ***** BASIC *****
Option Explicit
Sub Main(oevt As Object)
  'xray oevt
  'xray oevt.Columns.ElementNames
  If oevt.supportsService("com.sun.star.table.Cell") Then
    Select Case oevt.Columns.ElementNames(0)
      Case "C","E","G","I"
    Select Case oevt.RangeAddress.StartRow
      Case 8 To 18
    oevt.SetString(UCase(oevt.String)
    End Select
    End Select
  End If
End Sub

Salut Tacentaure,

Je ne connais pas LO et je ne semble pas être le seul.

On peut voir un bout de ton fichier, stp ?

Cordialement