re Damien, le forum
esaaye avec ce code
Private Sub CommandButton1_Click()
If IsNumeric(ComboBox1) Then
Range('E6') = CDbl(ComboBox1)
Else: Range('E6') = ComboBox1
On Error Resume Next
If Err = 2042 Then
Exit Sub
End If
ComboBox2 = Cells(6, 6)
On Error GoTo 0
End If
End Sub
JC