Creer hyperlink a partir du nom de l'onglet

bonjour tout le monde

j'ai un petit probleme
(pour info je ne connais rien en VBA mais je me débrouille avec les enregistrement de macro)

j'avais trouver du code sur le forum, je modifie une variable et ca ne marche plus alors je pete un cable.

Code trouvé:
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & _
nf & "'" & "!A1", TextToDisplay:=nf


Le mien:
var1b = ActiveSheet.Name
Range("I4").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & _
var1b & "'" & "!A1", TextToDisplay:=coucoucou


voila

merci d avance