Extraire x caractères après un slash

Sub decoupe()

Dim zone As Variant
zone = Split(Range("A1"), "/")
Cells(1, 3) = zone(LBound(zone))
Cells(2, 3) = zone(1)
Cells(3, 3) = zone(UBound(zone))

End Sub


Sub découpe2()

Dim zone As Variant
Dim i As Integer
zone = Split(Range("A1"), "/")
For i = 0 To UBound(zone)
  Cells(i + 1, 4) = zone(i)
Next

end sub

Sub DernierSlash()

Dim Plage As Range
Dim Tableau As Variant
Dim C As Range
Dim DL As Long

With Sheets("feuil1")
    DL = .Range("a65536").End(xlUp).Row
    Set Plage = .Range("A2:A" & DL)
     For Each C In Plage
        Tableau = Split(C, "/") ' split cree un tableau matriciel dont chaque element est separe par un slash
        C.Offset(0, 1) = Tableau(UBound(Tableau)) 'comme on veut extraire apres le dernier slash, on utilise ubound qui va recuperer le _
                                                    'dernier element du tableau.si le nbre de slash est fixe, on peut prendre le numero _
                                                    ' de l'elt ( voir ex suivant)
    Next
End With
End Sub

' variante : apres le 1er slash
Sub premierslash()

Dim Plage As Range
Dim Tableau As Variant
Dim C As Range
Dim DL As Long

With Sheets("feuil1")
    DL = .Range("a65536").End(xlUp).Row
    Set Plage = .Range("A2:A" & DL)
     For Each C In Plage
        Tableau = Split(C, "/") ' split cree un tableau matriciel dont chaque element est separe par un slash
        C.Offset(0, 2) = Tableau(1) 'comme on veut extraire apres le premier slash,on extrait l'elt 1 du tableau
    Next
End With
End Sub