Pour le moment, j'ai ça
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
Private Sub UserForm_Initialize()
Dim fl1 As Worksheet, fl2 As Worksheet, Plage As Range, i as integer, cell as range
Set fl1 = Worksheets("Feuil1")
Set fl2 = Worksheets("Feuil2")
Set Plage = fl1.Range("A1:A5")
    For i = 1 To 2 'Nbre de plages
        For Each cell In Plage
             ComboBox1.AddItem cell.Value
        Next
        Set Plage = fl2.Range("B1:B10")
    Next
    Set Plage = Nothing
    Set fl1 = Nothing
    Set fl2 = Nothing
End Sub
Est-il possible (j'ai un trou) d'affecter directement les deux plages dans un seul range ?
Marci