Sub test()
Dim Chaine As String
Dim Epuré As String
Chaine = "/url?q=http://www.domaine.com/dossier/index.html&sa=U&ei=PQndU535Gs-gogTK-YKgCA&ved=0CFMQ"
Epuré = Mid(Chaine, InStr(1, Chaine, "http"))
Epuré = Mid(Epuré, 1, InStr(1, Epuré, "&") - 1)
End Sub