Extraire des mots d'une cellule

Bonjour le forum,

je souhaite extraire dans une cellule héritée sous la forme Monsieur Jean Bon la civilité, le prénom et le nom et cela pour une liste de personnel.

J'arrive en combinant la fonction Gauche et Cherche a récupérer la civilité, mais ce sont mes limites. Je n'arrive pas à extraire le prénom, puis le nom pour toute une liste.

En PJ, le fichier test.

Merci de votre aide.

Joyeux noël.

Bonsoir,

voir fonction personnalisée à valider par Ctrl+Maj et Entrée.

Cdlt

Option Explicit
Public Function Cnp(Cellule As Range)
    Cnp = Split(Cellule, " ")
End Function

Bonjour,

voir fichier joint.

Clique sur le bouton extraction.

Macro en VBA un peu plus compliquée que Jean Eric.

Cordialement.

Bonjour,

merci pour vos exemples, je mets ma réalisation avec des fonctions, pour ceux que cela intéresse.

Bonne fin d'année.