Private Sub ctrl_Somme_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'que numéric et 1 seule virgule
If KeyAscii = 46 Then KeyAscii = 44
If KeyAscii = 44 And Not Ctrl_Somme Like "*.*" Then Exit Sub
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub