Re : Erreur Combobox
Bon, j'arrive à avoir quelquechose de correcte avec ça:
Private Sub ComboBox1_Change()
Dim a1 As Integer
Dim cherche1 As String
cherche1 = ComboBox1.Value
Quantité.Text = ""
On Error Resume Next
a1 = Sheets("feuil1").Cells.Find(What:=cherche1, LookIn:=xlValues...