VBA bit / octet / traitement

Function Hex2Dec(Hexa As String) As Double  
  Dim i As Integer, Multi As Integer  
  Hex2Dec = 0  
  Hexa = UCase(Trim(Hexa))  
  If Not Hexa Like "*[G-Z]*" Then  
    For i = 1 To Len(Hexa)  
      Multi = CInt("&H" & (Mid(Hexa, Len(Hexa) - i + 1, 1)))  
      Hex2Dec = Hex2Dec + (Multi * 16 ^ (i - 1))  
    Next i  
  End If  
End Function  

Function HexToBin(NombreHex As String) As String  
Dim tHex, tBin  
Dim i As Integer, j As Integer  
Dim Binaire As String  
Dim Trouve As Boolean  
   
Binaire = ""  
NombreHex = UCase(NombreHex)  
tHex = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F")  
tBin = Array("0000", "0001", "0010", "0011", "0100", "0101", "0110", _  
     "0111", "1000", "1001", "1010", "1011", "1100", "1101", "1110", "1111")  
   
For i = 1 To Len(NombreHex)  
    Trouve = False  
    For j = 0 To 15  
        If tHex(j) = Mid(NombreHex, i, 1) Then  
            Binaire = Binaire & tBin(j)  
            Trouve = True  
            Exit For  
        End If  
    Next j  
    If Not Trouve Then HexToBin = "": Exit Function  
Next i  
HexToBin = Binaire  
End Function