Private Sub Cmd_Rechercher_Click()
Dim operateur As String
Dim i As Integer ' Car moins de 32767 fournisseurs ! lol
operateur = Cmb_Four.Value
i = 1
While Sheets("Listes").Cells(i, 9) <> operateur And Sheets("Listes").Cells(i, 9) <> ""
i = i + 1
Wend
TextBox1.Value = Sheets("Listes").Cells(1, 8) ' Nb max de refus
TextBox2.Value = Sheets("Listes").Cells(i, 10) ' Nb refus de celui sélectionné.
End Sub