Bonjour Marjorysme2008 , bonjour Jean-Eric,
je ne sais pas si cela répond, mais voici un code de vérification
Function VerifIBAN(cel As Range) As Boolean
chaine = Replace(Mid(cel.Value, 5, Len(cel.Value)) & Left(cel.Value, 4), " ", "")
resultat = 0
For i = 1 To Len(chaine)
caractere = Mid(chaine, i, 1)
If IsNumeric(caractere) Then
resultat = (10 * resultat + caractere) Mod 97
Else
resultat = (100 * resultat + (Asc(caractere) - 55)) Mod 97
End If
Next
VerifIBAN = (resultat = 1)
End Function