Function remasterFich(txt$)
Dim i&, col
txt = Replace(txt, "Né le ", ";Né le;")
txt = Replace(txt, "Née le ", ";Née le;")
txt = Replace(txt, "Né à ", ";Né /;Non connue;à ")
txt = Replace(txt, "Né en ", "Né en;")
txt = Replace(txt, "et en un lieu non connu", "lieu de naisance inconnue;")
txt = Replace(txt, ", mort ", ";mort ")
txt = Replace(txt, " à ", ";à ")
txt = Replace(txt, "tué le ", ";tué le;")
txt = Replace(txt, "tuée le ", ";tuée le;")
'txt = Replace(txt, "tué ", ";tué ")
txt = Replace(txt, "sommairement exécuté en représailles le ", ";sommairement exécuté en représailles le ;")
txt = Replace(txt, "sommairement exécuté le ", ";sommairement exécuté le;")
txt = Replace(txt, "massacré par un soldat allemand le ", ";massacré par un soldat allemand le;")
'massacré par un soldat allemand le
txt = Replace(txt, "combat le ", "combat le;")
txt = Replace(txt, "mortellement blessé le ", ";mortellement blessé le;")
'mortellement blessé le
txt = Replace(txt, "exécuté sommairement le", ";exécuté sommairement le;")
txt = Replace(txt, "massacré le", ";massacré le;")
txt = Replace(txt, "massacré par des Allemands le ", ";massacré par des Allemands le;")
'massacré par des Allemands le
txt = Replace(txt, "https", ";https")
tbl = Split(txt, Chr(10))
For i = 0 To UBound(tbl)
tbl(i) = Replace(tbl(i), Val(tbl(i)), Val(tbl(i)) & ";")
col = Split(tbl(i), ";")
If UBound(col) >= 8 Then If InStr(1, col(8), "résistant") Then tbl(i) = Replace(tbl(i), "résistant", "proffession inconnue;résistant")
If UBound(col) >= 3 Then If IsDate(col(3)) Then tbl(i) = Replace(tbl(i), col(3), DateValue(col(3)))
If UBound(col) >= 6 Then If IsDate(col(6)) Then tbl(i) = Replace(tbl(i), col(6), DateValue(col(6)))
Next
txt = Join(tbl, vbCrLf)
remasterFich = txt
End Function