if isnumeric(mid("BOA0001576",3,1)) then msgbox "nombre" else msgbox "autre"
Function chiffre_ou_lettre(texte, position)
x = Mid(texte, position, 1)
If Asc(x) > 47 And Asc(x) < 58 Then
chiffre_ou_lettre = "Chiffre"
Else
chiffre_ou_lettre = "Lettre"
End If
End Function
Sub essai()
MsgBox (chiffre_ou_lettre("BOA0001576", 3))
MsgBox (chiffre_ou_lettre("BOA0001576", 4))
End Sub