bonjour
vite fait
a placer dans l'objet feuill1 (clique gauche sur l'onglet feuil1 puis visualiser le code)
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = 0 Then MsgBox "0"
If ComboBox1.ListIndex = 1 Then MsgBox "1"
If ComboBox1.ListIndex = 2 Then MsgBox "2"
End Sub
bien sur remplacer les msgbox par ton code
salut
Hervé