Extraire partie d'adresse postale

Function extrait_adresse(ad)
Dim list_type()
list_type = Range("type_voie")
nb = UBound(list_type)
For i = 1 To nb
    If InStr(ad, list_type(i, 1)) > 0 Then
        extrait_adresse = Right(ad, Len(ad) - InStr(ad, list_type(i, 1)) + 1)
        Exit Function
    End If
Next
End Function

{ABBAYE;AGGLOMERATION;AIRE;PETITE ALLEE;ALLEE;ANCIEN CHEMIN;ANCIENNE ROUTE;ANSE;ARCADE;AUTOROUTE;PETITE AVENUE;AVENUE;BARRIERE;BAS CHEMIN;BASTIDE;BASTON;BEGUINAGE;BERGE;BOIS;BOUCLE;GRAND BOULEVARD;GRANDE ENSEMBLE;BOULEVARD;BOURG;BUTTE;CALE;CAMP;CAMPAGNE;CAMPING;CARRE;CARREAU;CARREFOUR;CARRIERE;CASTEL;CAVEE;CENTRE;CHALET;CHAPELLE;CHARMILLE;CHATEAU;CHAUSSEE;HAUT CHEMIN;PETIT CHEMIN;VIEUX CHEMIN;CHEMIN VICINAL;CHEMIN;CHEMINEMENT;CHEZ;CITE;CLOITRE;CLOS;COL;COLLINE;CONTOUR;CORNICHE;COTE;COTAU;COTTAGE;COUR;COURS;DARSE;DEGRE;DESCENTE;DIGUE;DOMAINE;ECLUSE;EGLISE;ENCEINTE;ENCLAVE;ENCLOS;ESCALIER;ESPACE;ESPLANADE;ETANG;FAUBOURG;FERME;FONTAINE;FORT;FORUM;FOSSE;FOYER;GALERIE;GARE;GARENNE;GRANDE RUE;GRILLE;GRIMPETTE;GROUPE;GROUPEMENT;HALLE;HAMEAU;HIPPODROME;HLM;ILE;IMMEUBLE;PETITE IMPASSE;IMPASSE;JARDIN;JETEE;LEVEE;LIEU DIT;LOTISSEMENT;MAIL;MAISON FORESTIERE;MANOIR;MARCHE;MAS;METRO;MONTEE;MOULIN;MUSEE;NOUVELLE ROUTE;PALAIS;PARC;PARKING;PARVIS;PASSAGE;PASSAGE À NIVEAU;PASSE;PASSERELLE;PATIO;PAVILLON;PERIPHERIQUE;PERISTYLE;PETITE ROUTE;PETITE RUE;PLACE;PLACIS;PLAGE;PLAINE;PLAN;PLATEAU;POINTE;PONT;PORCHE;PORT;PORTE;PORTIQUE;POTERNE;POURTOUR;PRE;PRESQU'ILE;PROMENADE;QUAI;QUARTIER;RACCOURCI;RAIDILLON;RAMPE;REMPART;RESIDENCE;ROC;ROCADE;ROND POINT;ROQUET;ROTONDE;VIEILLE ROUTE;ROUTE;RUE;RUELLE;SENTE;SENTIER;SQUARE;STADE;STATION;TERRAIN;TERRASSE;TERRE PLEIN;TERTRE;TOUR;TRAVERSE;VAL;VALLEE;VALLON;VENELLE;VIA;VILLA;VILLAGE;VOIE;ZONE;ZONE A URBANISER EN PRIORITE;ZONE ARTISANALE;ZONE D'AMENAGEMENT CONCERTE;ZONE D'AMENAGEMENT DIFFERE;ZONE INDUSTRIELLE}