Macro qui renvoi l'adresse d'une cellule

Bonjour à tous,

Je fais appel à vous car je suis bloqué depuis 2 jours...

J'ai un fichier de suivi dans laquelle j'ai fait une macro qui lorsque je modifie un case, envoie un mail.

Mon problème est que j'aimerai renvoyer la colonne "D" de la ligne qui contient la cellule que je viens de modifier dans l'objet (reperer 'ICI') du mail!!!

Je n'arrive pas trouver comment integrer le numéro de ligne dans "i" afin de renvoyer via " Range("D"&i).value "...
Sachant que ça se compose de 2 macros : 1 macro qui lance l'autre lors de la modification de la cellule.

voici mes macros :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("H:H")) Is Nothing Then
Call mail_delai_achat
End If

End Sub

___________________________________________________________________________________________________

Sub mail_delai_achat()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim olFormatHTML As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
strbody = "Information sur la mise à jour"
On Error Resume Next
With OutMail
.To = "marie@entreprise.fr"
.CC = ""
.BCC = ""
.Subject = "Délai achat accusé dossier spécial" 'ICI'
.BodyFormat = olFormatHTML
.HTMLBody = "Bonjour, <BR><BR>Ce message est un mail automatique, il vous informe que " & Environ("username") & " a validé le délai achat.<BR><BR>" _
& "<A href=" & """" & "\\HPSrv2012\Commun\Suivi des dossiers spéciaux\Gestion commandes spéciales.xls" & """" & ">Gestion commande spéciales.</A>" & Chr(10) & "<BR><BR>Cordialement"
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

___________________________________________________________________________________________________



De plus sachant que j'ai glaner ces macros sur le net et adapter à mes besoins merci de me dire s'il n'y a pas d'erreur ou de ligne en trop?

Merci d'avance à tous