Gestion des formats dans une listbox

Bonjour,

J'ai crée un formulaire avec une ListBox que je renseigne avec le code VB ci-après :

   
    J = 0
    X = 0
    
    For I = ligne_deb To ligne_fin
        List_Catalogue(X, J) = Range(LettreColonne_deb & I).Value
        List_Catalogue(X, J + 1) = Range(LettreColonne_deb1 & I).Value
        List_Catalogue(X, J + 2) = Range(LettreColonne_deb2 & I).Value
        List_Catalogue(X, J + 3) = CCur(Range(LettreColonne_deb3 & I).Value)
        X = X + 1
    Next I
      
    Me.ListBox1.List = List_Catalogue

Lorsque mon formulaire s'affiche, la colonne 4 est affiché en format texte et non pas Currency.

Comment faire pour adapter le format d'une colonne dans une listbox ?

Merci d'avance pour votre aide

Denis