Séparer des caractères dans une cellule

Bonjour,

Mon fichier contient des cellules dans lesquelles tous les caractères sont collés. Exemple : "BillenBrandonBillen" au lieu de "Billen Brandon Billen". Je souhaite savoir comment décoller les mots sachant que les noms commencent par des majuscules (comme dans l'exemple mentionné). Excel n'est pas mon fort et je suis nul en macros.

Merci pour votre aide.

bonjour

une solution avec une fonction personnalisée à mettre dans un module

et à appeler ainsi

=separemaj(r)

ou r est la cellule contenant le texte à séparer

Function separemaj(r As String) As String
    s = ""
    For i = 1 To Len(r)
        If Mid(r, i, 1) Like "[A-Z]" Then If i > 1 Then s = s & " "
        s = s & Mid(r, i, 1)
    Next i
    separemaj = s
End Function

à mon avis en utilisant les fonctions excel c'est impossible.. Il faudrait tester toutes les lettres en majuscule donc CAR(65) Car(66)..... car(90)

Par contre si dans un module tu mets

Function separermaj(donnee As Range) As String
separermaj = Left(donnee, 1)
    For i = 2 To Len(donnee)
        If Asc(Mid(donnee, i, 1)) >= 65 And Asc(Mid(donnee, i, 1)) <= 90 Then
            separermaj = separermaj & " " & Mid(donnee, i, 1)
        Else
            separermaj = separermaj & Mid(donnee, i, 1)
        End If
    Next i
End Function

Tu pourras écrire dans ta feuille ou dans A1 il y a BillenBrandonBillen

=separermaj(A1)

et tu auras Billen Brandon Billen

Edit: Sorry sulfurique.. trop tard

Super, un très grand merci !!!