Bonjour,
Pour ouvrir internet à partir d'Excel avec le navigateur par défaut :
#If Win64 Then
Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
Public Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
Sub Ouvrir()
Dim Fichier As String
Fichier = "https://www.google.fr/?gfe_rd=cr&ei=MXqeVs23BrSx8wexsbywCw&gws_rd=ssl#q=" & recherche
ShellExecute 0, "", Fichier, "", "", 0
End Sub
appliquer la macro ouvrir sur un bouton.