Réference nom de cellule dans un mail automatique

Bonjour à tous,

Je débute totalement en VBA et je suis bloquée sur une partie de mon code que voici :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Adresse As String, olApp As Object, M As Object
    If Target.Column = 8 And Target.Row > 1 And Cells(Target.Row, 19) <> "" Then

MsgBox "Vous avez modifié la date de réponse de l'étude," & vbCrLf & "un mail a été envoyé au Dirigeant.", vbOKOnly + vbInformation, "Changement de date de réponse"

    Adresse = "xxxxxxx@xxxxxx.fr;" & _
                "xxxxxxx@xxxxxx.fr;"
        Set olApp = CreateObject("Outlook.Application")
        Set M = olApp.CreateItem(olMailItem)
        With M
            .To = Adresse
            .CC = "xxxxxxxx@xxxxxx.fr"
            .Subject = "Fichier des Etudes - Modification Date Réponse"
            .Body = "Bonjour," & vbCrLf & "La cellule " & Target.Address(0, 0) & "  du fichier des études a été modifiée." & vbCrLf & "Merci de modifier la date CDG correspondante." & vbCrLf & "Cordialement."
            .Send
        End With
    End If
End Sub

Dans le corps du mail envoyé au dirigeant, je souhaiterais pouvoir faire référence au nom d'une cellule (colonne B de mon fichier) qui indique le numéro de l'étude correspondante. Car pour l'instant mon responsable reçoit un mail avec la référence de la cellule modifiée (H380 par exemple) mais il souhaiterait également avoir le numéro de l'étude qui se situe sur la colonne B de la même ligne.

J'espère être suffisamment claire.

Merci pour votre aide !

Rechercher des sujets similaires à "reference nom mail automatique"