Saisie de chiffre hexadécimal par macro.

Sub CONV()
'
' Sélection de la page de conversion
' Affichage de la fenêtre de saisie.
'

    Sheets("CONV").Select
' Effacement de l'ancienne donnée et mise en mode normal.
' Si affichage scientifique, 3949E0= 3949 (E=Exposant)
' (Ne fonctionne pas mieux avec cela...)
    Range("B1").Select
        Selection.ClearContents
            Selection.NumberFormat = "@"
Sheets("CONV").Cells(1, 2) = InputBox("Entrer le code Hexa")
'
'
' Test de l'intégitté du code voir le ELSE plus bas.
' Si non conforme, affichage de la fenêtre d'erreur.
' Si OK (0) décodage, sinon affichage msg d'erreur.
'
Sheets("CONV").Select
If Range("e9") = 0 Then
'
' Choix des 2 premiers digits avec ?-? par défaut.
'
Range("c1") = "?  -  ?"
If Range("c4") = 112 Then Range("c1") = "a1"
If Range("c4") = 114 Then Range("c1") = "b3"
If Range("c4") = 115 Then Range("c1") = "c5"
If Range("c4") = 116 Then Range("c1") = "d7"
'
'           Troisième digit
Cells(1, 4) = Chr(Cells(4, 4) + 65)
'
'          Quatrième digit
Cells(1, 5) = Chr(Cells(4, 5) + 65)

'          Cinquième digit
Cells(1, 6) = Chr(Cells(4, 6) + 65)


'
' Si test NOGO, affichage de la fenêtre d'erreur.
' La page CONV sera masquée et les valeurs effacées.
'
Else:
Sheets("CONV").Select
 Range("B1:F1").Select
 Application.CutCopyMode = False
  Selection.ClearContents
          Sheets("1").Select
            DialogSheets("erreur").Show
End If
'
' Si le test d'intégrité est bon.
' et l'affichage se fait normalement sur la page d'accueil.
'

            Sheets("1").Select
'
End Sub

Sub test()
x = InputBox("Entrez un Hexadecimal")
Range("A1").NumberFormat = "@"
Range("A1") = x
End Sub