Function espace1(mot)
For i = 1 To Len(mot)
On Error Resume Next
If Asc(Mid(mot, i + 1, 1)) >= "48" And Asc(Mid(mot, i + 1, 1)) <= "57" Then
temp = temp & Mid(mot, i, 1) & Mid(mot, i + 1, 1) & " "
i = i + 1
Else
temp = temp & Mid(mot, i, 1) & " "
End If
Next
espace1 = Left(temp, Len(temp) - 1)
End Function