A++Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789" & Chr(8) & Chr(13), Chr(KeyAscii)) = 0 Then
Check = MsgBox("Seul les caractères numériques sont acceptés !", vbExclamation + vbOKOnly, "Attention")
KeyAscii = 0
End If
End Sub