Sub test()
Dim depart As String
Dim arrivee As String
'Avec Firefox
monexplorateur = "C:\Program Files\Mozilla Firefox\firefox.exe"
'Avec chrome
'monexplorateur = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
depart = [O1] 'Cellule de départ sur la feuille
Destination = [O2] 'Cellule de d'arrivée sur la feuille
'Avec mappy
'URL = "https://fr.mappy.com/itineraire#/voiture/" & depart & "/" & Destination & "/car/4"
'Avec google maps
URL = "https://www.google.fr/maps/dir/" & depart & ",/" & Destination
URL = Replace(URL, " ", "%20")
Shell monexplorateur & " " & URL
End Sub