finalisation d'une macro

Bonjour,

je suis sur le point de finir ma première macro , mais je tourne en rond

la macro est la suivante:

Sub supertexte()

For Each Cell In ActiveSheet.Range("b:b")
If Cell.Value = "" Then Exit For
ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:="c:/doc1/" + Cell.Value, _
TextToDisplay:=Cell.Value
Next Cell
End Sub

le probleme est que le lien hypertexte créé commence par file:// ce que je n'arrive pas à enlevé

merci d'avance

marc