Salut,
Si ton numero a toujours le meme format tu peux faire la chose suivante:
Dim Cnum As String
Dim Annee As String
Dim Matricule As String
Dim Indice As String
Cnum = "1999027050"
Annee = Mid$(Cnum, 1, 4)
Matricule = Mid$(Cnum, 5, 5)
Indice = Mid$(Cnum, 10, 1)
MsgBox Annee & ", " & Matricule & ", " & Indice
Voila j espere avoir pu aider un peu
@+
Julien
-----------------------------------------------------------
Essaie ca sinon on trouvera autre chose
-----------------------------------------------------------