listbox : format de la dernière colonne

[Jean P.]

Bonjour à tous

J'ai fais un listbox avec 16 colonnes.

Code:
L3 = WS5.Range("P65536").End(xlUp).Row
Tableau = WS5.Range("A1😛" & L3) 'plage de cellules à inserer
With ListBox1
.ColumnCount = 16
.ColumnWidths = "1,8cm;1,8cm;1,4cm;1,6cm;2,5cm;2,3cm;1,6cm;1,6cm;1,1cm;1,3cm;1,8cm;1,3cm;1,5cm;1,5cm;2,4cm;3cm"
.List() = Tableau 'insertion dans la ListBox
.TextAlign = fmTextAlignCenter


Est-ce qu'il existe une façon de mettre la dernière colonne avec un format nombre millier (sans décimale) ?

Est-ce que je peux aussi changer l'alignement (pour alignement à droite) de seulement la dernière colonne ?

Merci pour votre aide et vos commentaires.


Jean P.