Function BaseN(EntierPositif&, N As Byte) As String
Dim s$, t$, i&, j As Byte
s = String(Int(Log(EntierPositif) / Log(N)) + 2, "0")
t = 0
For i = 1 To EntierPositif
t = Format(t + 1, s)
While InStr(t, N)
j = InStrRev(t, N)
t = Left(t, j - 2) & Mid(t, j - 1, 1) + 1 & 0 & Mid(t, j + 1)
Wend
Next
BaseN = Val(t) 'Val pour 0 non significatif
End Function