Déplacer Mr Mme au cas par cas

Bonjour,

J'ai un tableau avec une colonne A correspondant aux civilités, une colonne B avec les noms.

Mon problème est le suivant :

1/ Quelques fois, il y a M ou Mme ou Mr MMe devant le nom (colonne B) et dans la colonne A

2/ Quelques fois, il y a M ou Mme ou Mr MMe devant le nom (colonne B) et rien dans la colonne A

3/ Quelques fois, il y a M ou Mme ou Mr MMe dans la colonne A et rien dans la colonne B

Je souhaiterai que le tableau soit sur le modèle du n°3, à savoir :

3/ Quelques fois, il y a M ou Mme ou Mr MMe dans la colonne A et rien dans la colonne B

Est ce que vous pouvez m'aider ?

Merci

Bonjour,

une solution via une macro

Sub mrmme()
    Dim aciv As Variant
    aciv = Array("M. ET MME", "MR ET MME", "MONSIEUR", "MME", "M. ", "M ")
    For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
        cv = Cells(i, 2)
        For Each civ In aciv
            s = InStr(UCase(cv), civ)
            If s = 1  Then
                Cells(i, 1) = Trim(civ)
                Cells(i, 2) = Trim(Mid(cv, s + Len(civ)))
                Exit For
            End If
        Next
    Next i
End Sub

Super ça marche nickel