XL 2019 Convertir des données à la suite d'une liste

Public T, Madate
Sub Transfert()
    Dim L%, i%
    T = [A1].CurrentRegion
    L = 1 + Sheets("liste des appels mensuels").Range("A65500").End(xlUp).Row
    With Sheets("liste des appels mensuels")
        For i = 2 To UBound(T)
            If IsDate(T(i, 1)) Then
                Madate = T(i, 1)
                i = i + 1: InsererLigne L, i
                L = L + 1: i = i + 4
            Else
                i = i - 1: InsererLigne L, i
                L = L + 1: i = i + 3
            End If
            If i > UBound(T) Then Exit Sub
        Next i
    End With
End Sub
Sub InsererLigne(L, i)
    Dim N%
    With Sheets("liste des appels mensuels")
        .Cells(L, 1) = Madate
        For N = 2 To 5
            .Cells(L, N) = T(i + N - 2, 1)
        Next N
    End With
End Sub

Sub Transfert()
    Dim L%, i%, T, Td, Madate: On Error GoTo Fin
    T = [A1].CurrentRegion
    ReDim Td(1 To UBound(T))
    For i = 1 To UBound(T)      ' Met 1 à chaque date de T, sinon 0
        If IsDate(T(i, 1)) Then Td(i) = 1 Else Td(i) = 0
    Next i
    L = 1 + Sheets("liste des appels mensuels").Range("A65500").End(xlUp).Row
    With Sheets("liste des appels mensuels")
        For i = 2 To UBound(T)
            If Td(i) = 1 Then Madate = T(i, 1)
            While Td(i) = 0
                .Cells(L, 1) = Madate
                For N = 2 To 5
                    .Cells(L, N) = T(i + N - 2, 1)
                 Next N
                L = L + 1: i = i + 4
                If Td(i) = 1 Then Madate = T(i, 1)
            Wend
        Next i
    End With
Fin:
End Sub