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
=STXT(A3;CHERCHE(" Rue ";A3)+1;CHERCHE(",";A3;CHERCHE(" Rue ";A3)+1)-CHERCHE(" Rue ";A3)-1)
STXT(A3;CHERCHE(", Rue ";A3)+2;CHERCHE(",";A3;CHERCHE(", Rue ";A3)+1)-CHERCHE(", Rue ";A3)-2)