Bonjour,
A coller dans le module de l'UserForm :
Private Sub UserForm_Initialize()
Dim Plage As Range
Dim Cel As Range
With Worksheets("Feuil1"): Set Plage = .Range(.Cells(4, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
For Each Cel In Plage
ComboBox1.AddItem Cel.Value
Next Cel
End Sub
Private Sub ComboBox1_Click()
Remplir ComboBox1, ComboBox2
End Sub
Private Sub ComboBox2_Click()
Remplir ComboBox2, ComboBox3
End Sub
Private Sub ComboBox3_Click()
Remplir ComboBox3, ComboBox4
End Sub
Sub Remplir(CB1 As MSForms.ComboBox, CB2 As MSForms.ComboBox)
Dim I As Integer
For I = 0 To CB1.ListCount - 1
If I <> CB1.ListIndex Then CB2.AddItem CB1.List(I)
Next I
End Sub