décimale dans list box

Bonjour a vous tous
voilà dans cette partie de code en listBox1.list(y,4) je récupère un nombre jusque là pas de soucis
si j'ai 1234.56 je récupère 1234.56 mais si j'ai un chiffre rond je récupère pas le ,00
malgré ma recherche sur les anciens posts suis tjrs au même point.
Y a til une soluce ?
Merci pour l'aide
JC

Sheets('Recap').Select
y = 0
For x = 2 To Range('A65536').End(xlUp).Row
ListBox1.AddItem Range('A' & x)
ListBox1.List(y, 1) = Sheets('Recap').Range('B' & x)
ListBox1.List(y, 2) = Sheets('Recap').Range('C' & x)
ListBox1.List(y, 3) = Sheets('Recap').Range('D' & x)
ListBox1.List(y, 4) = Sheets('Recap').Range('E' & x)
ListBox1.List(y, 5) = Sheets('Recap').Range('F' & x)
y = y + 1
Next