Private Sub UserForm_Initialize()
ComboBox1.List = Feuil1.Range("a3:b" & Feuil1.Cells(Rows.Count, 1).End(3).Row).Value
End Sub
Private Sub ComboBox1_Click()
x = ComboBox1.List(ComboBox1.ListIndex, 1)
CheckBox1 = IIf(x Like "*Pomme*", 1, 0)
CheckBox2 = IIf(x Like "*Poire*", 1, 0)
CheckBox3 = IIf(x Like "*Abricot*", 1, 0)
End Sub
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex > -1 Then
If CheckBox1 Then T1 = "Pomme "
If CheckBox2 Then T2 = "Poire "
If CheckBox3 Then T3 = "Abricot "
Feuil1.Cells(ComboBox1.ListIndex + 3, 2) = T1 & T2 & T3
End If
End Sub