Copier des cellules excel dans une liste déroulante vba

Bonjour j'aimerai savoir quel algorythme permet de recopier les cellules excel qui se touvent en ligne ds une liste déroulante ds un useform (jusqu'à la dernière cellule pleine sachant que ça peut varier). j'ai une formule ms c'est pour copier les cellules en colonne.

Code:

---

For i = 2 To Sheets("Matières").Range("A1").End(xlDown).Row

---

Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub UserForm_Initialize() Dim mafeuille As Worksheet Dim j, col, lig, fin As Integer Set mafeuille = Sheets("feuil1")   mafeuille.Activate fin = mafeuille.Range("A1").End(xlToRight).Column lig = 1 'si on traite la ligne A col = 1 'si on part de la première colonne   For j = col To fin ComboBox_liste.AddItem (Cells(lig, j).Value) Next j   End Sub

---