Forma listbox

Bonjour

j'ai une listbox a 7 colonnes , leurs forma est monétaire, je veux exclure la troisième colonne au-quelle je souhaite attribuer une forma date, voici le code je n'arrive pas à le dissocier en deux conditions ; merci pour votre aide

For C = 1 To 7: TS(LS, C) = Format(TE(LE, C), "#,##0"): Next C, LS

Bonjour

Essaie ce code :

Private Sub UserForm_initialize()
    ListBox1.ColumnCount = 7
    For ln = 2 To Range("B" & Rows.Count).End(xlUp).Row
        ListBox1.AddItem
        For j = 2 To 8
            If j <> 4 Then
                ListBox1.Column(j - 2, ListBox1.ListCount - 1) = Cells(ln, j) & " €"
            Else
                ListBox1.Column(j - 2, ListBox1.ListCount - 1) = Cells(ln, j)
            End If
        Next j
    Next ln
End Sub

Bye !