Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not Intersect(sel, [A:A]) Is Nothing And sel.Value <> "" Then
Dim chemin As String
chemin = Replace([Q3].Value, "~", sel.Value)
ActiveWorkbook.FollowHyperlink Address:=chemin, NewWindow:=True
End If
End Sub