Sub Remplacer()
'A1 = 4.5E-05
'B1 => 4.5.10 -05
[B1] = Replace([A1].Text, "E", ".10 ")
End Sub
Sub Remplacer()
'A1 = 4.5E-05
'B1 => 4.5.10 -05
[B1] = Replace([A1].Text, "E", ".10")
[B1].Characters(Start:=Len([B1]) - 2, Length:=3).Font.Superscript = True
End Sub