Bonjour,
Un essai ...
Les données en A1 de la Feuil1 ...
Une 2e feuille : Feuil2 ...
Bien évidemment > tester sur une copie du fichier
Sub traitement()
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim X As Integer, S As String
Dim Z As Integer
Set Ws1 = Worksheets("Feuil1") ' < à ajuster au besoin
Set Ws2 = Worksheets("Feuil2") ' < à ajuster au besoin
If Right(Ws1.Range("A1"), 1) <> "/" Then Ws1.Range("A1") = Ws1.Range("A1") & "/"
X = InStr(Ws1.Range("A1"), "/")
Z = 1
Do While Len(Ws1.Range("A1")) > 0
X = InStr(Ws1.Range("A1"), "/")
If X = 0 Then Exit Sub
Ws2.Cells(Z, 1) = Left(Ws1.Range("A1"), X - 1)
Ws1.Range("A1") = Right(Ws1.Range("A1"), Len(Ws1.Range("A1")) - X)
Z = Z + 1
Loop
End Sub
ric