Sub Epurer()
Dim tablo, i&, x$, s, ub%, y$
With Sheets("Synthèse").UsedRange.Columns(3)
tablo = .Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
For i = 2 To UBound(tablo)
x = " " & tablo(i, 1) '2 espaces devant pour avoir au moins 3 "mots"
s = Split(x)
ub = UBound(s)
y = LCase(s(ub))
If y = "test" Or y = "essai" Then tablo(i, 1) = Trim(Left(x, Len(x) - Len(s(ub - 1) & y) - 1))
If y = "simul" Or y = "result" Then tablo(i, 1) = Trim(Left(x, Len(x) - Len(s(ub - 2) & s(ub - 1) & y) - 2))
Next
'---restitution---
If .Parent.FilterMode Then .Parent.ShowAllData 'si la feuille est filtrée
.Value = tablo
End With
End Sub