Formule equivalente qui garde les "0" a gauche

Bonjour a tous,

y a t-il moyen a meme la formule d'eliminer la premiere et la 3 ieme ligne. Ds mon application, le format des cellules doit etre "standard", mais pour cette formule, je dois mettre absolument le format "texte" avant la formule si non je perd les "0" a gauche.

 Cells(Target.Row + 1, 3).NumberFormat = "@" ' Format texte pour cette cellule afin d'afficher le 0 a gauche, s'il y en a un!   
 Cells(Target.Row + 1, 3) = Right("00" & Hex(Mid(Strg, 17, 2)), 2)
 Cells(Target.Row + 1, 3).NumberFormat = "General" 

Bonjour CAPUCIN,

Ce ci devrait faire l'affaire :

Cells(Target.Row + 1, 3) = "'" & Right("00" & Hex(Mid(Strg, 17, 2)), 2)

c'est parfait! Ca va me permettre de reduire mon code.

Merci vba-new

Capucin