Microsoft 365 Épurer les lignes vides d'une cellule puis fractionner la cellule en plusieurs lignes

let
    Source = Excel.CurrentWorkbook(){[Name="tSource"]}[Content],
    Fractt = Table.ExpandListColumn(Table.TransformColumns(Source, {{"PROGRAMME", Splitter.SplitTextByDelimiter("#(lf)", QuoteStyle.Csv)}}), "PROGRAMME"),
    Filtre = Table.SelectRows(Fractt, each ([PROGRAMME] <> "" and [PROGRAMME] <> " "))
in
    Filtre

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"JOUR", Int64.Type}, {"DISCIPLINE", type text}, {"PROGRAMME", type text}}),
    #"Fractionner la colonne par délimiteur" = Table.ExpandListColumn(Table.TransformColumns(#"Type modifié", {{"PROGRAMME", Splitter.SplitTextByDelimiter("#(lf)", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "PROGRAMME"),
    #"Type modifié1" = Table.TransformColumnTypes(#"Fractionner la colonne par délimiteur",{{"PROGRAMME", type text}}),
    #"Lignes filtrées" = Table.SelectRows(#"Type modifié1", each ([PROGRAMME] <> "" and [PROGRAMME] <> " "))
in
    #"Lignes filtrées"

Sub Onglet3()
Dim Line As Variant, Li As Variant
Dim L As Integer
Dim FSource As Worksheet, FTarget As Worksheet
    Set FSource = Sheets("Initial")
    Set FTarget = Sheets("Feuil2"): FTarget.Cells.Delete
    L = 1
    For Each Line In FSource.UsedRange.Rows
        For Each Li In Split(Line.Columns("C"), vbLf)
            If Trim(Li) <> "" Then
                If FTarget.Rows(L).Columns("C") <> "" Then L = L + 1
                FTarget.Rows(L).Columns("A:B").Value = Line.Columns("A:B").Value
                FTarget.Rows(L).Columns("C") = Li
            End If
        Next
    Next
    FTarget.Columns.AutoFit
End Sub