et
listReplacements = let TxtReplacements = "éeàaèeùuâaêeîiôoûuëeïiÉEÀAÈEÙUÂAÊEÎIÔOÛUËEÏI" in List.Buffer(List.Transform({0 .. Text.Length(TxtReplacements)/2-1}, each {Text.Range(TxtReplacements,_*2,1), Text.Range(TxtReplacements,_*2+1,1)})),
fnMultiReplace = (t as nullable text, r as list) as nullable text => List.Accumulate(r, t, (s, c) => Text.Replace(s, c{0}, c{1})),
xChamps = Table.FirstValue(Excel.CurrentWorkbook(){[Name="ND_Champs"]}[Content]),
xRecherche = Table.FirstValue(Excel.CurrentWorkbook(){[Name="ND_Recherche2"]}[Content]),
Source = Excel.CurrentWorkbook(){[Name="Tab_BASE"]}[Content],
TypesModifiés = Table.TransformColumnTypes(Source,{{"Nom", type text}, {"Prenom", type text}, {"Age", Int64.Type}}),
LignesFiltrées = Table.SelectRows(TypesModifiés, each Text.Contains(fnMultiReplace(Text.From(Record.Field(_, xChamps)), listReplacements), Text.From(xRecherche), Comparer.OrdinalIgnoreCase))
in
LignesFiltrées