For I = 2 To 10
If Controls("TextBox" & I) > 4 And Controls("TextBox" & I) <> "" Then
MsgBox "numéro non valide, Saisissez des nombres entiers de 0 à 4 ", vbExclamation, "Saisissez des nombres entiers de 0 à 4"
Controls("TextBox" & I)="" ' pour le forcer à vide
Exit For
End If
Next I