Sub verif_IBAN()
Dim IBAN As String, Codepays, CleIban, Codebanque, CodeGuichet, Compte, clerib, htab
htab = Chr(9)
IBAN = Application.Substitute(Selection, "-", "")
IBAN = Application.Substitute(IBAN, " ", "")
Codepays = Left(IBAN, 2)
CleIban = Mid(IBAN, 3, 2)
Codebanque = Mid(IBAN, 5, 5)
CodeGuichet = Mid(IBAN, 10, 5)
Compte = Mid(IBAN, 15, 11)
clerib = Mid(IBAN, 26, 2)
MsgBox "Code Pays : " & htab & Codepays _
& vbCr & "Cle Iban : " & htab & CleIban _
& vbCr & "Code banque : " & htab & Codebanque _
& vbCr & "Code Guichet : " & htab & CodeGuichet _
& vbCr & "N° compte : " & htab & Compte _
& vbCr & "Cle rib : " & htab & clerib
Selection = Codepays & "-" & CleIban & "-" & Codebanque & "-" & CodeGuichet & "-" & Compte & "-" & clerib
End Sub