Bonjour, j'ai un petit problème au niveau de mon code pour remplir une listbox avec des cellules, message d'erreur "Impossible de définir la propriété column. index de table de propriétés non valide."

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
                            Sheets("Emplacement").Cells(14, 6) = TextBox1
                            Sheets("Emplacement").Cells(14, 7) = ComboBox1
                            Sheets("Emplacement").Cells(14, 8) = ComboBox2
                            Sheets("Emplacement").Cells(14, 9) = ComboBox3
 
                            With Sheets("Emplacement")
 
                UserForm_Ajouter.ListBox1.ColumnCount = 4
                UserForm_Ajouter.ListBox1.ColumnWidths = "80;80;80;80"
                UserForm_Ajouter.ListBox1.AddItem
                UserForm_Ajouter.ListBox1.Column(0, 1) = .Cells(11, 6)        '(bug a cet endroit la)
                UserForm_Ajouter.ListBox1.Column(1, 1) = .Cells(11, 7)
                UserForm_Ajouter.ListBox1.Column(2, 1) = .Cells(11, 8)
                UserForm_Ajouter.ListBox1.Column(3, 1) = .Cells(11, 9)
                UserForm_Ajouter.ListBox1.Column(0, 2) = .Cells(14, 6)
                UserForm_Ajouter.ListBox1.Column(1, 2) = .Cells(14, 7)
                UserForm_Ajouter.ListBox1.Column(2, 2) = .Cells(14, 8)
                UserForm_Ajouter.ListBox1.Column(3, 2) = .Cells(14, 9)
 
                        End With
Voila, je ne comprend pas pourquoi, si quelqu'un a l'amabilité de de m'aider, merci !