Function decoup(ByVal ch As String) As String
Dim i As Long, car As String * 1
decoup = ch
For i = Len(ch) To 2 Step -1
car = Mid(ch, i, 1)
If car >= "A" And car <= "Z" And Mid(ch, i - 1, 1) <> " " And Mid(ch, i - 1, 1) > "Z" Then
decoup = Left(decoup, i - 1) & " " & Mid(decoup, i)
End If
Next i
End Function