Une façon de faire serait avec une Fonction personnalisée codée en VBA.
(On suppose que ça commence par "Rue")
Code:
Function ExtraireRue(Adresse As String) As String
Dim i As Integer, j As Integer
i = InStr(1, Adresse, "Rue", vbTextCompare)
j = InStr(i, Adresse, ",", vbTextCompare)
ExtraireRue = Mid(Adresse, i, j - i)
End Function
Regardes si la formule suivante fonctionne à tous les coups
Code:
=STXT(A3;CHERCHE(" Rue ";A3)+1;CHERCHE(",";A3;CHERCHE(" Rue ";A3)+1)-CHERCHE(" Rue ";A3)-1)
La formule semble fonctionner, sauf dans le cas ou il y aurait le terme Rue, avec un espace devant et derrière, dans le nom de famille (Jeanne Rue d'Arc, Rue de Rémiremont 5, à Nancy, par exemple). Ca doit être assez rare !