Public Function MEF_Iban(Cellule As String) As String
Dim tmp As String
If Cellule = "" Then Exit Function
Dim nbCar As Byte, i As Byte
tmp = ""
nbCar = Len(Cellule)
For i = 1 To nbCar Step 4
tmp = tmp + Mid(Cellule, i, 4) & " "
Next i
MEF_Iban = tmp
End Function