macros, caractères après le dernier espace

[auban]

Bonjour, j'ai une dificulté à réaliser une fonction permettant de me donner tous les caractères contenu après le dernier espace de la cellule (une celulle peut contenir plusieurs espace, je souhaite garder la dernière).
ma formule suivante fonctionne parfait:
=STXT(G6;(NBCAR(G6)-EQUIV(" ";STXT(G6;NBCAR(G6)-LIGNE(INDIRECT("1:"&NBCAR(G6)));1);0))+1;20)

Par contre je n'arrive pas à le transformer en VBA en "FUNCTION", ainsi je pourrais remplacer "G6" par la cellule recherchée.

Avez vous la solution s'il vous plait?

 

[Robert]

Re : macros, caractères après le dernier espace

Bonjour Auban et bienvenu, bonjour le froum,

Peut-être comme ça :

Public Function DERNESP(Target As Range)
DERNESP = Split(Target, " ")(UBound(Split(Target, " ")))
End Function