Private Sub CommandButton1_Click()
Dim d As Integer, f As Integer, i As Integer
ComboBox1.Clear 'supprime la liste
If IsNumeric(TextBox1) And IsNumeric(TextBox2) Then
d = TextBox1
f = TextBox2
For i = d To f
If i Mod 2 > 0 Then ComboBox1.AddItem i
Next
End If
End Sub