double clic pour deux procédure

Bonjour
Les macros suivante me permet de voir (en double clis sur une cellule
en "h15 à h500")
avec maps.google.(les cellules contiennent des donnés Longitude
Latitude.)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Cancel = True
Dim adresse As String
If Not Intersect(Target, Range("h15:h500")) Is Nothing Then
If Target.Cells.Count = 1 And Target.Value <> "" Then
adresse = "http://maps.google.com/maps?q=" & Target.Offset(, 3)
& "&t=h&hl=fr"
Internet adresse
End If
End If
End Sub
Sub Internet(adresse As String)
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True: IE.Top = 0: IE.Left = 0
IE.Navigate adresse
End Sub

Je voudrai faire exécuter la procédure suivante en double clic su
"i15:i500".
comment l'intègré dans la première macro???

MyAppID = Shell("C:\Program Files\GarminRouteRoute.exe", 1)
SendKeys "{ESC}", True
SendKeys "{ESC}", True
SendKeys "{F4}", True
SendKeys "{home}", True
SendKeys "^g", True
SendKeys "^v", True
SendKeys "{enter}", True
Set Pressp = Nothing
Application.ScreenUpdating = True


Merci