Bonjour à tous,
Voici un essai avec une fonction personnalisée :
function Altern(sTxt as string) as string
i = 2
do while i < len(sTxt)
if not mid(sTxt, i, 1) like "#" then
if not mid(sTxt, i - 1, 1) like "#" then mid(sTxt, i, 1) = " ": i = i + 1
end if
i = i + 1
loop
Altern = replace(sTxt, " ", "")
end function
A utiliser ainsi :
=Altern(A1)
si A1 contient le texte à modifier.
A noter que abcde2020750blabla deviendrait donc ace2020750bala normalement.
Cdlt,