Function Decomposer(chaine As String) As String
Dim oRegExp As Object, matches As Object
Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
.Global = True
.Pattern = "(\d+)"
If .test(chaine) Then
Set matches = .Execute(chaine)
chaine = .Replace(chaine, " $1 ")
Decomposer = Trim(chaine)
End If
End With
End Function