VBA macro evenementielle

Bonjour, je voudrais rtajouter le contenu de la colonne 2 au mail que m'envoie cette macro. Comment faire

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 15 And Target.Row >= 1 And Target.Row <= 2000 Then
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "gfsd@gegg"
        .Subject = "Attention Nouveau RDV"
        .Body = " Un nouveau RDV  est disponible . Consulter fichier PSR. Nouvelle date : " & Target.Value
        .send 'envoi automatique
   End With
End If
End Sub

voir solution ici

https://forum.excel-pratique.com/excel/vba-macro-evenementielle-t92103.html

Bonjour

A tester -->

.Body = " Un nouveau RDV  est disponible . Consulter fichier PSR. Nouvelle date : " & Target.Value & " " & Range("B" & Target.Row)

Si ok et terminé merci de cloturer le fil en cliquant sur le v vert à coté du bouton EDITER lors de votre réponse

Cordialement

Edit : oups désolé h2s04, je n'avais pas vu ta réponse qui plus est dans un autre fil ...