Function convrib(lettre As String)
convrib = (Asc(lettre) - 64) Mod 9
If convrib = 0 Then convrib = 9
'A , J = 1
'B , K, S = 2
'C , L, T = 3
'D , M, U = 4
'E , N, V = 5
'F , O, W = 6
'G , P, X = 7
'H , Q, Y = 8
'I , R, Z = 9
End Function
Function convIBAN(lettre As String)
convIBAN = (Asc(lettre) - 55)
End Function
Function rib(no As String) ' no = numero de compte a 21 chiffres (ou lettre)
Dim num As String
num = no
For n = 1 To Len(num)
If Mid(num, n, 1) <> " " And Not IsNumeric(Mid(num, n, 1)) Then
num = Replace(num, Mid(num, n, 1), convrib(Mid(num, n, 1)))
End If
Next n
x = Split(num, " ")
B = CDbl(x(0))
G = CDbl(x(1))
D = CDbl(Left(x(2), 6))
C = CDbl(Right(x(2), 5))
rib = 97 - ((89 * B + 15 * G + 76 * D + 3 * C) Mod 97)
If Len(rib) = 1 Then rib = "0" & rib
rib = CStr(rib)
End Function