Function ControleIban(LeNumIban As String) As Boolean
Dim x As String
LeNumIban = Replace(LeNumIban, " ", "")
If Syntaxe(LeNumIban, "^[A-Z]{2}(0[2-9]|[1-8]\d|9[0-8])[A-Z0-9]{11,30}$") = True Then
LeNumIban = Right(LeNumIban, Len(LeNumIban) - 4) & Left(LeNumIban, 4)
n = 1
While n <= Len(LeNumIban)
x = Mid(LeNumIban, n, 1)
If Not IsNumeric(x) Then
LeNumIban = Replace(LeNumIban, x, convIBAN(x), 1, 1)
End If
n = n + 1
Wend
iban = Mod97(LeNumIban)
If iban = 1 Then
ControleIban = True
Else
ControleIban = False
End If
End If
End Function