XL 2021 Calendrier des marées info

let
    Source = Web.Page(Web.Contents("https://horaire-maree.fr/maree/LORIENT/")),
    Data1 = Source{1}[Data],
    #"Type modifié" = Table.TransformColumnTypes(Data1,{{"Date", type text}, {"Matin Coeff.", type text}, {"Matin Basse mer", type text}, {"Matin Pleine mer", type text}, {"Après-midi Coeff.", type text}, {"Après-midi Basse mer", type text}, {"Après-midi Pleine mer", type text}}),
    #"Premières lignes supprimées" = Table.Skip(#"Type modifié",1),
    #"Fractionner la colonne par délimiteur" = Table.SplitColumn(#"Premières lignes supprimées", "Matin Basse mer", Splitter.SplitTextByDelimiter("#(cr)", QuoteStyle.Csv), {"Matin Basse mer.1", "Matin Basse mer.2"}),
    #"Fractionner la colonne par délimiteur1" = Table.SplitColumn(#"Fractionner la colonne par délimiteur", "Matin Pleine mer", Splitter.SplitTextByDelimiter("#(cr)", QuoteStyle.Csv), {"Matin Pleine mer.1", "Matin Pleine mer.2"}),
    #"Fractionner la colonne par délimiteur2" = Table.SplitColumn(#"Fractionner la colonne par délimiteur1", "Après-midi Basse mer", Splitter.SplitTextByDelimiter("#(cr)", QuoteStyle.Csv), {"Après-midi Basse mer.1", "Après-midi Basse mer.2"}),
    #"Fractionner la colonne par délimiteur3" = Table.SplitColumn(#"Fractionner la colonne par délimiteur2", "Après-midi Pleine mer", Splitter.SplitTextByDelimiter("#(cr)", QuoteStyle.Csv), {"Après-midi Pleine mer.1", "Après-midi Pleine mer.2"}),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Fractionner la colonne par délimiteur3",{"Matin Basse mer.2", "Matin Pleine mer.2", "Après-midi Basse mer.2", "Après-midi Pleine mer.2"})
in
    #"Colonnes supprimées"

Sub Macro1()
ActiveWorkbook.RefreshAll
End Sub

Private Sub Workbook_Open()
ThisWorkbook.RefreshAll
End Sub