Private Sub CBcoted_Change()
If Sheets("parametre").Range("d3").Value = "OB" And TBHFF.Value >= "421" And TBHFF.Value <= "920" Then
CBcoted.List = Array("", "210", "260", "375") ' il n'y a plus le 114
CBcoted.Text = ""
ElseIf CBtypedouvrant.value = "OB" or CBtypedouvrant.value = "OF renvoi d'angle" And TBHFF.Value >= "230" And TBHFF.Value <= "920" Then
CBcoted.List = Array("", "114", "210", "260", "375")
CBcoted.Text = ""
End If
Sheets("parametre").Range("J5").Value = CBcoted.Value
End Sub