ListBox1.List(n, 3) = Cells(x, 4)
Ciao prova: .....= Format(Cells(x, 4), "€ 0,00") saluti
.= Format(Cells(x, 4), "€ 0.00")