Re,
voici les codes qui doivent se trouver dans ton USFSelection
1. Initialiser l'USF
Private Sub UserForm_Initialize()
'macro Dan pour alf19731
With Sheets("Code")
ListBox1.List() = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
End With
End Sub
2. Mettre les données dans la combo en fonction de la listbox
Private Sub ListBox1_Click()
'Macro dan pour pour alf19731
Dim i As Integer, lg As Integer
Dim plat As String
plat = ListBox1.Value
With Sheets("cuiscal")
For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If .Range("A" & i) = plat Then ComboBox1.AddItem .Range("B" & i)
Next
End With
End Sub
Amicalement