XL 2019 Descendre une valeur et récupérer la valeur commune

Sub Eclater()
Dim sep$, resu(), tablo, i&, vc, s, j%, n&
sep = "/"
ReDim resu(1 To Rows.Count, 1 To 2)
tablo = [A1].CurrentRegion.Resize(, 2) 'matrice, plus rapide
For i = 1 To UBound(tablo)
    vc = tablo(i, 1)
    s = Split(tablo(i, 2), sep)
    For j = 0 To UBound(s)
        n = n + 1
        resu(n, 1) = vc
        resu(n, 2) = s(j)
Next j, i
'---restitution---
With Feuil1 'CodeName de la feuille de destination, à adapter
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .[D1] '1ère cellule de destination, à adapter
        If n Then .Resize(n, 2) = resu
        .Offset(n).Resize(.Parent.Rows.Count - n - .Row + 1, 2).ClearContents 'RAZ en dessous
        .Resize(, 2).EntireColumn.AutoFit 'ajuste les largeurs
    End With
    With .UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub