Voilà,
il y avait une "sal.....rie" de caractères à enlever, pftttt !
=ReconstruireChaine(A2;"[a-z 0-9:]+")*1
Function ReconstruireChaine(chaine, pattern)
Application.Volatile
Set obj = CreateObject("vbscript.regexp")
obj.pattern = pattern
obj.Global = True
Set a = obj.Execute(chaine)
ReconstruireChaine = ""
For i = 0 To a.Count - 1
ReconstruireChaine = ReconstruireChaine & a(i)
Next
End Function
edit : ce n'était pas le bon fichier !