Récupérer numéro ligne non défini après positionnement dans Feuil1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
MsgBox "N° de ligne: " & Target.Row & vbCrLf & "Référence: " & Target.Address(0, 0), vbInformation, "Infos sur cellule active"
End If
End Sub

Sub Itineraire()
'

' Itineraire Macro
'
' Touche de raccourci du clavier: Ctrl+g
'
Dim xlieu As String
Dim xplan As String

Dim VilleArrive As String
Dim Numrue As String
Dim Nomrue As String

' Colonne G toujours nom de commune
' Colonne F toujours Adresse
' Colonne E toujours Num rue


VilleArrive = Range(ActiveCell.Address) ' récupère contenu + l'emplacement
Ligne = (ActiveCell.Row) ' le numéro de la ligne
Numrue = Range("E" & Ligne)
Nomrue = Range("F" & Ligne)

xplan = Numrue + Nomrue + VilleArrive     ' <---- là pas bon


' Pour itinéraire entre deux villes
xlieu = "https://maps.google.fr/maps?t=m&saddr=xxxxxx&daddr=" + xplan + "&output=classic&dg=ntvb"

Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url " & xlieu)

End Sub

xplan = Numrue + " " + Nomrue + "," + VilleArrive
xplan = Replace(xplan, " ", "+")