Sub ControleDesCaracteres(texteSaisi, drapeau)
'renvoi 1 au drapeau si caractère interdit
'utiliser le 1 pour renvoyer sur le userform
For i = 1 To Len(texteSaisi)
Select Case Mid(texteSaisi, i, 1)
Case Is = "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
'tout va bien
Case Is = ",", "."
'tout va bien
Case Else
MsgBox "Caractère " + Mid(texteSaisi, i, 1) + " non autorisé"
drapeau = 1
End Select
Next i
End Sub