Sub AjouteDesLiensHyperTexte()
'Boucle sur les clients de la liste
For Each cell In Worksheets("Clients").Range("B3:B" & Worksheets("Clients").[B3].End(xlDown).Row)
'Boucle sur toutes les feuilles du classeur
For Each ws In Worksheets
'test si le texte de la cellule correspond au nom de la feuille
If cell.Value = ws.Name Then
'Ajout du lien hypertexte
Worksheets("Clients").Hyperlinks.Add cell, Address:="", SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
'Force l'affichage de la feuille en Visible
If ws.Visible = False Then ws.Visible = True
End If
Next ws
Next cell
End Sub