Sub Lien_feuille() Range("A1").Select ActiveCell.FormulaR1C1 = "Feuil1" ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "Feuil1!A1", TextToDisplay:="Feuil1" End Sub
Sub Feuille() For i = 1 To 10 Range("A" & i).Select ActiveCell.FormulaR1C1 = "essai" & i ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "essai" & i & "!A1", TextToDisplay:="essai" & i Next End Sub