Bonjour c'est re-moi...

J'ai une listbox avec deux colonnes mais je n'arrive pas à ajouter des objets dans la deuxième colonne. Pourtant, en regardant sur ce forum et les tutos, mon code semble bon...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
    For i = 2 To compteur Step 1
        Set Identifiant = Feuil2.Range("A1:A100").Rows(i).Columns(1)
        Set DateDeCreation = Feuil2.Range("C1:C100").Rows(i).Columns(1)
 
        If Identifiant Is Nothing Then
            ListBox1.AddItem AucunCompte
        Else
            If Not Identifiant = "" Then
                ListBox1.AddItem Identifiant
                ListBox1.List(i, 1) = DateDeCreation
            End If
        End If
    Next i
Mais ça marche pô :'(
Voici ce que ça me dit:





Voilà merci