Incrémenter numéro combobox

Bonjour,

J'ai la même question. Je voudrais alléger mon code car j'ai 97 combobox à faire...
Chaque ComboBox représente chaque colonne : ComboBox 1 = Colonne A de Sheets("Liste")

Voici mon code de mon UserForm3 :

Dim colonne As Integer, i As Integer, j As Integer

dernlig = Sheets("Liste").Range("A" & Rows.Count).End(xlUp).Row
derncol = Sheets("Liste").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
'MsgBox "dernlig = " & dernlig & Chr(13) & "derncol = " & derncol
i = 2
    j = i
    Do While Sheets("Liste").Cells(j, 1).Value <> ""
        UserForm3.ComboBox1.AddItem Sheets("Liste").Cells(j, 1)
        j = j + 1
    Loop
    j = i
    Do While Sheets("Liste").Cells(j, 2).Value <> ""
        UserForm3.ComboBox2.AddItem Sheets("Liste").Cells(j, 2)
        j = j + 1
    Loop
    j = i
    Do While Sheets("Liste").Cells(j, 3).Value <> ""
        UserForm3.ComboBox3.AddItem Sheets("Liste").Cells(j, 3)
        j = j + 1
    Loop
    j = i
    Do While Sheets("Liste").Cells(j, 4).Value <> ""
        UserForm3.ComboBox4.AddItem Sheets("Liste").Cells(j, 4)
        j = j + 1
    Loop
    j = i
    Do While Sheets("Liste").Cells(j, 5).Value <> ""
        UserForm3.ComboBox5.AddItem Sheets("Liste").Cells(j, 5)
        j = j + 1
    Loop
End Sub

Private Sub ToggleButton1_Click()
Unload Me
End Sub

Si vous trouver ma solution, ça va pouvoir s'écrire à peu près comme ça :

For i = 1 to derncol 
   j = 2 'Bloquer j = 2 au démarrage de la boucle
     Do While Sheets("Liste").Cells(j, i).Value <> ""
        UserForm3.ComboBox & i.AddItem Sheets("Liste").Cells(j, i) 'C'est là que ça coince ! Je voudrais savoir écrire le bon script du ComboBox
      j = j + 1
     Loop
next i

merci par avance de votre coup de main