Merci de la réponse rapide!
Non, il n'y a pas cette fonction. Je poste la seule maccro du fichier :
Sub restore_Sommaire()
iSheet = 2
Do While Not Worksheets(iSheet).Name = "Tableau_de_suivi"
iSheet = iSheet + 1
Loop
For i = 1 To iSheet - 1
Cellule = "'" + Worksheets(i).Name + "'!$B$2"
Fichier = Chr(34) + "[" + ActiveWorkbook.Name + "]" + Cellule + Chr(34)
Onglet = Chr(34) + Worksheets(i).Name + Chr(34)
Cells(i + 16, 2).FormulaLocal = "=LIEN_HYPERTEXTE(" + Fichier + ";" + Onglet + ")"
Next i
For i = iSheet To 100
Cells(i + 16, 2) = ""
Next i
End Sub