Ajout de liens hypertextes automatiques

Salut,

J'essaie de faire une sorte de concaténation dans une feuille Total, et j'aimerais ajouter automatiquement des liens hypertextes pour aller sur les feuilles en question mais j'ai une erreur sur la formule et je ne comprends pas :

For i = 2 To Worksheets.Count
j = Range("A1048576").End(xlUp).Row + 1
With Worksheets(i)
Worksheets("Total").Hyperlinks.Add Anchor:=Cells(j, 1), Adress:="", SubAddress:=Worksheets(i).Name & "!", TextToDisplay:=Worksheets(i).Name

Quelqu'un voit mon erreur ?

Merci de votre temps et bonne journée :)

Bonjour Jiloin,

Sans trop chercher à comprendre je vois une erreur possible dans le : Adress:="". Address prend deux d.

Cordialement

Pfiou, j'ai cherché partout sauf ici, merci beaucoup :)

Si ça intéresse quelqu'un, voici mon petit calculateur DIY pour la vape :p