XL 2013 Format listbox

Bonjour

j'ai une listebox de 13 colonnes affichés en format numérique çi dessous le code :



For C = 1 To 13: TS(LS, C) = Format(TE(LE, C), "#,##0"): Next C, LS
ListBox1.List = TS

je veux que seule la colonne 1 s'affiche en forma date et que le reste s'affiche en format numérique, donc j'ai fait le code suivant :

For C = 1 To 1: TS(LS, C) = Format(TE(LE, C), "dd/mm/yyyy"): Next C, LS
ListBox1.List = TS
For C = 2 To 12: TS(LS, C) = Format(TE(LE, C), "#,##0"): Next C, LS
ListBox1.List = TS

Malheureusement ça marche pas est ce quelqu'un peut m'aider svp ?

Merci