Mail avec ligne active

Bonjour,

Je souhaiterais qu'un mail soit automatiquement généré, puis envoyé, lors de la saisie de la date dans la colonne L.

Une action via macro est déjà active sur cette case, elle copy la ligne dans un autre onglet, puis la supprime.

Il faudrait donc que le mail soit envoyé avant la suppression de la ligne.

L'adresse mail sera toujours la même, et le corps du mail doit contenir la ligne active dans laquelle la date vient d'être mise.

Je n'ai pas réussi à intégrer cette ligne pour l'envoyer par mail dans la macro actuelle.

Pourriez vous m'y aider ?

Le code existant :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lo As ListObject, lo2 As ListObject, rng As Range, r As Range, lRow As Long, lCol As Long
    If Not Target.ListObject Is Nothing And Target.Count = 1 Then
        Set lo = Target.ListObject
        Set rng = lo.ListColumns(11).DataBodyRange
        If Not Intersect(Target, rng) Is Nothing Then
            lRow = Target.Row - lo.HeaderRowRange.Row
            lCol = lo.ListColumns.Count
            If IsDate(Target) Then
                Set lo2 = Worksheets("Suivi").ListObjects(1)
                With lo2
                    If .InsertRowRange Is Nothing Then
                        Set r = .HeaderRowRange.Cells(1).Offset(.ListRows.Count + 1)
                    Else
                        Set r = .InsertRowRange.Cells(1)
                    End If
                    r.Resize(, lCol).Value = lo.ListRows(lRow).Range.Value
                    lo.ListRows(lRow).Range.Cells(1, 1).Resize(, lCol).Delete
                End With
            End If
        End If
    End If
    ActiveSheet.ListObjects("Tableau3").AutoFilter.ApplyFilter
End Sub

Le fichier :

D'avance merci et bonne journée.

Pour ceux que ça intéresse, la solution à été apportée :

https://forum.excel-pratique.com/viewtopic.php?f=2&t=131988&p=810627#p810627