let
Source = Web.Page(Web.Contents("https://horaire-maree.fr/maree/LORIENT/")),
Data1 = Source{1}[Data],
#"Premières lignes supprimées" = Table.Skip(Data1,2),
#"Valeur remplacée" = Table.ReplaceValue(#"Premières lignes supprimées","Demain ","",Replacer.ReplaceText,{"Date"}),
#"Texte extrait avant le délimiteur" = Table.TransformColumns(#"Valeur remplacée", {{"Date", each let x = try Date.From(_) in if x[HasError] then Date.From(_ & Text.From(Date.Year(Date.From(DateTime.LocalNow()))+1)) else Date.From(_)},{"Matin Basse mer", each Text.BeforeDelimiter(_, "#(cr)"), type text},{"Matin Pleine mer", each Text.BeforeDelimiter(_, "#(cr)"), type text},{"Après-midi Basse mer", each Text.BeforeDelimiter(_, "#(cr)"), type text},{"Après-midi Pleine mer", each Text.BeforeDelimiter(_, "#(cr)"), type text}}),
#"Type modifié" = Table.TransformColumnTypes(#"Texte extrait avant le délimiteur",{{"Matin Coeff.", Int64.Type}, {"Après-midi Coeff.", Int64.Type}, {"Date", type date}})
in
#"Type modifié"