Function separe(chaine As Range) As String
For i = 1 To Len(chaine)
If IsNumeric(Mid(chaine, i, 1)) Or Mid(chaine, i, 1) = "." Then
separe = separe & Mid(chaine, i, 1)
Else
separe = separe & " " & Right(chaine, Len(chaine) - i + 1)
Exit Function
End If
Next i
End Function