@Christophe@

bonsoir Thierry

J'ai tous de meme un petit probleme, ca bug
Voila ce que j'ai:

Private Sub ComboBox1_Change()
If Sheets("januari").ComboBox1.ListCount >= 1 Then
If Sheets("januari").ComboBox1.ListIndex = -1 Then
Sheets("januari").ComboBox1.ListIndex = Sheets("januari").ComboBox1.ListCount - 1
End If
Sheets("januari").ComboBox1.RemoveItem (Sheets("januari").ComboBox1.ListIndex)
End If
End Sub


Voila ce qui deconne

Sheets("Test1").ComboBox1.RemoveItem (Sheets("Test1").ComboBox1.ListIndex)

Pour t'explique, ca doit etre au niveau des pages, j'ai "Test1" la tu trouves les additem pour la combobox1 et dans "Test2" tu as le combobox1 avec le bouton reset.

Vois tu ce qui déconne

Merci