bonjour à tous

bizare, j'ai plus acces au quote, smiley,.... lors de l'ecriture des message ????

bon

j'ai 3 optionbutton qui vont remplir , en fonction du choix fait, un meme combobox par le code suivant:
(le code et donc le critere de rechercher varie en fonction du button, bien sur)!
--------------------------------------------
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim j As Long
For j = 4 To Sheets("feuil2").Range("m65536").End(xlUp).Row
           ComboBox13 = Sheets("feuil2").Range("m" & j)
           If ComboBox13.ListIndex = -1 Then
              If Sheets("feuil2").Range("o" & j) = "" Then ComboBox13.AddItem Sheets("feuil2").Range("m" & j)
           End If
 
   Next j

-------------------------------------------

par defaut :
c'est le critere du boouton 1 qui remplit le combobox avec le code ci-dessus.
si je selectionne le bouton2
le continue du combobox ne varie pas ? j'ai testé le code il est bon !
Je pense qu'il faut initialise le combobox (le mettre à 0)

j'ai essaye
ComboBox13.Clear
Mais plus de succes !!!!!!!!!!!!!