Contenu de cellule à dissocier

Public Function RecupCivilite(cellule As Range) As String
Dim tabMots() As String
    tabMots = Split(cellule(1, 1).Text)
    RecupCivilite = tabMots(0)
End Function

Public Function RecupNom(cellule As Range) As String
Dim tabMots() As String
    tabMots = Split(cellule(1, 1).Text)
    RecupNom = tabMots(1)
End Function

Public Function RecupNomJF(cellule As Range) As String
Dim tabMots() As String
    tabMots = Split(cellule(1, 1).Text)
    If tabMots(2) = "épouse" Then RecupNomJF = tabMots(3)
End Function

Public Function RecupPrenom(cellule As Range) As String
Dim tabMots() As String
    tabMots = Split(cellule(1, 1).Text)
    If tabMots(2) = "épouse" Then RecupPrenom = tabMots(4) Else RecupPrenom = tabMots(2)
End Function

Public Function RecupPrenom(cellule As Range) As String
Dim tabMots() As String, i As Long
    tabMots = Split(cellule(1, 1).Text)
    If tabMots(2) = "épouse" Then
        For i = 4 To UBound(tabMots)
            RecupPrenom = RecupPrenom & tabMots(i) & " "
        Next i
    Else
        For i = 2 To UBound(tabMots)
            RecupPrenom = RecupPrenom & tabMots(i) & " "
        Next i
    End If
    RecupPrenom = Left(RecupPrenom, Len(RecupPrenom) - 1)
End Function