Sub lien()
Dim mavar As String
mavar = ActiveCell & "" & "futbol24"
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.google.fr/search?hl=fr&source=hp&q=" & mavar & "&meta=&aq=f&oq="
ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub