Microsoft 365 Aide macro svp (RÉSOLU)

Sub test()
    Dim I&, Lig&, T
    Columns(4).ClearContents
    For I = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        T = Application.Transpose(Application.Transpose(Cells(I, "A").Resize(, 2).Value))
        If Cells(1, "D") = "" Then Lig = 1 Else Lig = Cells(Rows.Count, "D").End(xlUp).Offset(1).Row
        Cells(Lig, "D").Resize(UBound(T), 1) = Application.Transpose(T)
    Next
End Sub