Un test sur la chaine "versionproduit" est possible avec cette fonction :
Function VersionValide(strVer)
VersionValide = Asc(Left(strVer,1)) >= 48 And Asc(Left(strVer,1)) <= 57 ' limiter le...