XL 2019 Envoyer données d'une cellule sur une autre feuille de classeur

Sub Transfert()
    Application.ScreenUpdating = False
    Dim Ligne%
    On Error Resume Next
    ' Sur qulle ligne se trouve la date
    Ligne = Application.Match(Sheets("Feuille de caisse du jour").[B2], Sheets("Récap TR").[A:A], 0)
    If Ligne = 0 Then
        MsgBox "Cette date n'a pas été trouvée."
    Else
        With Sheets("Récap TR")
            .Cells(Ligne, "B") = [B7]           'Caisse1
            .Cells(Ligne, "C") = [C7]           'Caisse2
            .Cells(Ligne, "F") = [B6]           'Nb TR1
            .Cells(Ligne, "G") = [C6]           'Nb TR2
            .Cells(Ligne, "D") = [B7] + [C7]    'Total
            If Ligne = 2 Then
                .Cells(Ligne, "E") = .Cells(Ligne, "D")                             'Si première ligne Total
            Else
                .Cells(Ligne, "E") = .Cells(Ligne, "D") + .Cells(Ligne - 1, "D")    'Sinon total+total(-1)
            End If
        End With
    End If
End Sub

Option Explicit

Public Sub AddData()
Dim lo As ListObject, rngData As Range, r As Range, arr(3)

    Set rngData = Range("t_saisie")
    Set lo = Range("T_récap").ListObject

    arr(0) = Worksheets("Feuille de caisse du jour").Cells(2, 2).Value2   'ou arr(0) = VBA.Date
    With rngData
        arr(1) = .Cells(1, 2).Value + .Cells(1, 3).Value
        arr(2) = .Cells(2, 2).Value
        arr(3) = .Cells(2, 3).Value
    End With

    With lo
        If .InsertRowRange Is Nothing Then
            Set r = .HeaderRowRange.Cells(1).Offset(.ListRows.Count + 1)
        Else
            Set r = .InsertRowRange.Cells(1)
        End If
    End With

    r.Resize(, 4).Value = arr
    rngData.Cells(1).Offset(, 1).Resize(2, 2).ClearContents

End Sub