Sub Bouton3_QuandClic()
With Sheets("Feuil1")
If .ComboBox1.Value = Range("I10").Value Then
.ComboBox1.BackColor = RGB(0, 255, 0)
Else
.ComboBox1.BackColor = RGB(255, 50, 50)
End If
If .ComboBox1.Value = "" Then .ComboBox1.BackColor = vbWhite
End With
End Sub