Lien hypertexte avec bouton

Bonjour qui pourrai m'aider
je veux ouvrire un URL a condition si je met le curseur sur la ligne et je clic sur le bouton 'OPEN' le lien URl se compose avec un URL standard+ contact

Exemple: Si je mette curseur sur la ligne 2 puis sur ouvrier URL
le url standard est :
https/www.excel-pratique.com/

le url devient:
https/www.Excel-pratiquecom/33685955

Remarque : je sais que en peux faire =LIEN_HYPERTEXTE("https://www.excel-pratique.com/"&E2") pour la ligne 2
mais je veux si mettre sur ligne ligne correspond est je click sur open direct le lien ouvert
Merci d'avance pour le temps pris pour m'aider.

Bonjour nizar2015,

Voici le code à utiliser

Sub LienWEB()
  Dim sURL As String, sContact As String
  sURL = "https://www.excel-pratique.com/"
  sContact = Range("E" & ActiveCell.Row).Value
  If sContact <> "" Then
    ThisWorkbook.FollowHyperlink Address:=sURL & sContact, NewWindow:=True
  End If
End Sub

@+

Merci bcp parfait