Bonjour à tous,

J'ai trouvé un code qui fonctionne avec des liens hypertexte qui renvoient sur des pages Internet ou vers des fichiers.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$11" Then
    ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:=Target.Value, TextToDisplay:=Target.Value
  End If
End Sub

Malheureusement, ce code ne permet pas de sélectionner la cellule d'une autre feuille.

Je joins le fichier comme exemple.

Peut-être une idée de solution!

Bien cordialement à tous