= GAUCHE([@[Nouvelle adresse]];CHERCHE(" ";[@[Nouvelle adresse]];1))
=STXT([@[Nouvelle adresse]];CHERCHE(" ";[@[Nouvelle adresse]];1)+1;NBCAR([@[Nouvelle adresse]])-NBCAR([@[Numero de voie]])+1)
Curieux, chez moi c'est immédiat.J'avais 10000 lignes à modifier !!! fait en 10 secondes...
Sub a()
Dim t
t = Timer
[A:C].Copy [A1]
MsgBox Timer - t
End Sub