Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Dans le module de la feuille concernée
Dim mavar As String
Dim ie
mavar = ActiveCell.Value
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "http://www.google.com/search?q=" & Replace(mavar, " ", "+")
End Sub