VBA ou VB6 Trouvez ou remplacez la chaîne de la fin
rlpStr = StrReverse(Replace(StrReverse(str), StrReverse("Find"), StrReverse("Replace"), , 1))
Tense Trout
rlpStr = StrReverse(Replace(StrReverse(str), StrReverse("Find"), StrReverse("Replace"), , 1))