Autoriser que chiffres plusieurs textbox

Bonjour,

Excel 2007 vba
J'ai un userform avec plus de 200 textbox et j'aimerais uniquement autoriser la saisie de chiffre dans toutes ces textbox.
Voila le code que j'ai :

Private Sub TextBox0_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    If Not IsNumeric(Chr(KeyAscii)) And Chr(KeyAscii) <> "." Then 
        KeyAscii = 0 
    End If 
End Sub 

Il fonctionne bien, le soucis c'est que je suis obligé de le mettre pour chaque textbox.
Existe - il un autre moyen plus simple, plus compact pour n'autoriser que la saisie de chiffre dans plusieurs textbox sur changement du contenu.
Merci à ceux qui me répondront.