Inverser le prénom / nom

=STXT(A1;EQUIV(VRAI;EXACT(STXT(A1;LIGNE(INDIRECT(("1:"&NBCAR(A1))));3);MAJUSCULE(STXT(A1;LIGNE(INDIRECT(("1:"&NBCAR(A1))));3)));0)+1;99)&" "&GAUCHE(A1;EQUIV(VRAI;EXACT(STXT(A1;LIGNE(INDIRECT(("1:"&NBCAR(A1))));3);MAJUSCULE(STXT(A1;LIGNE(INDIRECT(("1:"&NBCAR(A1))));3)));0)-1)

    ' On retire les espaces vides à droite et à gauche s'il y en a
    Chaine = Trim(Cells(1, 1))
    ' On recherche le 1er espace vide après le prénom
    Espace = InStr(Chaine, " ")
    Prenom = Left(Chaine, Espace - 1)
    ' à nouveau Trim, car il peut y avoir plusieurs espaces entre le prénom et le nom
    Nom = Trim(Right(Chaine, Len(Chaine) - Espace))
    Cells(1, 2) = Nom & " " & Prenom