Bonsoir Damien,
Ci-joint un exemple pouvant servir de base pour résoudre ton problème...
N'ayant pu trouver de solution avec les liens
classiques dans la feuille Excel, j'ai contourné le problème en insérant de
FAUX liens dans cette page et en appliquant le code ci-dessous pour en assurer l'affichage dans Internet Explorer.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static IE As Object
'
S'assure qu'on se situe en colonne A
If Application.Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
'
S'assure qu'une seule cellule est sélectionnée
If Target.Count > 1 Then Exit Sub
'
S'assure que la cellule contient une valeur
If Target.Value = "" Then Exit Sub
On Error GoTo Erreur
'
Affiche le lien dans Internet Exploreur
IE.Visible = True
IE.Navigate Target.Value
Target.Hyperlinks.Delete
Exit Sub
Erreur:
'
Définit l'objet IE
Set IE = CreateObject("InternetExplorer.Application")
Resume
End Sub
Cordialement.
Didier_mDF