Extraction de mot dans une chaine de caractere

J’ai une chaine de caractère séparée par « / »

Je souhaiterai qu’à l’aide d’une macro je décompose cette chaine et que je remplisse une cellule avec cette valeur

A savoir que cette chaine de caractère peut être plus longue ou plus courte

Je vous joint un exemple de chaine de caractère a laquelle je suis confronté et le résultat escompté

Pouvez vous m’aider

Merci d’avance

Hello,

Dommage d'utiliser du code pour cela, tu as la commande dans DONNEES - CONVERTIR

Voici le code qui en découle via l'enregistreur :

    Selection.TextToColumns Destination:=Range("A6"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
        , 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1)), TrailingMinusNumbers:= _
        True