Pb Libellé lien hypertexte

Bonsoir à toutes et à tous,

Je crée 2 LH, le 1er est ok mais pour le deuxième , il me met le même libellé que le 1er 'C'. voici le code:

Workbooks.Open retour

' création du lien 1er LH
Range('E' & numl).Select
ActiveCell.FormulaR1C1 = 'C'
Range('E' & numl).Select
LHActiveSheet.Hyperlinks.Add Anchor:=Range('E' & numl), Address:=adr, ScreenTip:=bulle, TextToDisplay:='C'

Range('E' & numl).Font.ColorIndex = 5

' création du lien 2ème LH
Range('F' & numl).Value = '' ' nettoyage de la cellule
Range('F' & numl).Select
ActiveCell.FormulaR1C1 = 'F'
Range('F' & numl).Select
ActiveSheet.Hyperlinks.Add Anchor:=Range('F' & numl), Address:=adr1, ScreenTip:='Existante mais pas faite', TextToDisplay:='C'
' --------------------------------------==)

Range('F' & numl).Font.ColorIndex = 3


Workbooks(retour1).Close SaveChanges:=True

voyez vous où est le soucis?

Merci de m'en faire part.

Eric D