Bonsoir,
juste remplacer cela : dans la procéduve vba au choix
si sans traits d'union
t = Replace(Left(Trim(t), Len(Trim(t)) - Len(Split(Trim(t), " ")(UBound(Split(Trim(t), " ")))) - 1), "-", " ")
si avec traits d'union
t = Replace(Left(Trim(t), Len(Trim(t)) - Len(Split(Trim(t), " ")(UBound(Split(Trim(t), " ")))) - 1), " ", "-")
cdt
Laurent