Bonjour Riri,
Je pense que ce bout de code répond à ta question.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Text <> "" Then
Sheets(ActiveCell.Text).Select
Else
Exit Sub
End If
End Sub
Pour le lien hypertext je ne sais pas faire, mais bon... ça ira !
A bientôt et bonne journée
Ludwig