Comment trouver un morceau de texte dans une Cellule

Bonjour à tous,

Je me présente à vous aujourd'hui car je suis un peu bloqué sur une commande VBA.

Pour contextualiser:

Je possède une colonne dans un tableau Excel et dans chaque cellule de cette colonne se trouve des données de la forme "Nom Prénom Sexe Naissance_Date etc etc".

Mon objectif:

Je dois "séparer cette cellule et mettre le nom dans une case "nom" , le prénom dans une case "prénom" etc etc.

Mon problème:

Je n'arrive pas à différencier le cas Sexe = "M" et Sexe="F" et du coup ça me bloque pour faire le reste.

La commande que j'utilise est la suivante:

Sub mots()

Cellule = Application.InputBox("Saisir la cellule", "Saisie", Type:=8)

'Espace entre le nom et le prénom
esp1 = WorksheetFunction.Find(" ", Cellule)
'Espace entre le prénom et le sexe (ÇA BUG)

Range("N2") = Cellule

If Range("N2").Text Like "M " Then
    espCiv = WorksheetFunction.Find(" M ", Cellule)
ElseIf Range("N2").Text Like "F " Then
    espCiv = WorksheetFunction.Find(" F ", Cellule)
End If
Range("N2") = espCiv

'Espace entre le Sexe et la Naissance_Date
espdate = WorksheetFunction.Find(" ", Cellule, espCiv + 3)
'Range("N2") = espdate

End Sub

Je suis à votre disposition pour plus de précisions et je m'excuse auparavant si ma demande n'est pas clair...

Cordialement

Aharon

Bonjour et bienvenue sur le forum

Tu devrais joindre ton fichier...

Bye !