Bonjour
Le code suivant ouvre TOUS les liens de la Feuil1
Sub ActiverLiens()
For Each HL In Sheets("Feuil1").Hyperlinks
HL.Follow
Next
End Sub
Le Code suivant ouvre tous les liens de la Plage sélectionnée
Sub ActiverLiens()
For Each HL In Selection.Hyperlinks
HL.Follow
Next
End Sub
Tu sélectionnes la Plage des liens à ouvrir et tu cliques sur le Bouton
Pour voir le Code, Alt+F11 et double click sur module1
Exemple joint
Cordialement