Public Function Decimal_Binaire(NombreDecimal As Long) As String
Dim tmp As String
Dim n As Long
 
    n = NombreDecimal
 
    tmp = Trim(Str(n Mod 2))
    n = n \ 2
 
    Do While n <> 0
        tmp = Trim(Str(n Mod 2)) & tmp
        n = n \ 2
    Loop
 
    Decimal_Binaire = tmp
End Function
 
Public Function Binaire_Decimal(Binaire As String) As Long
Dim n As Long
Dim s As Integer
 
    For s = 1 To Len(Binaire)
        n = n + (Mid(Binaire, Len(Binaire) - s + 1, 1) * (2 ^ (s - 1)))
    Next s
 
    Binaire_Decimal = n
End Function