Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click()
Sheets("Feuil1").Select
End Sub
Private Sub CommandButton2_Click()
Sheets("don").Range("b2").Value = ComboBox1.Value
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub Frame1_Click()
End Sub
Private Sub UserForm_Initialize()
End Sub