Split("-")

Option Explicit
Sub Test()
Dim r As Range
Dim i As Long
Dim v As Variant
Dim t As Variant
Dim n As Integer
  'Plage de cellules à traiter
  Set r = Worksheets("Feuil1").Range("A1").CurrentRegion  'Adapter le nom de la feuille
  'Analyser chaque ligne en partant de la fin
  For i = r.Rows.Count To 2 Step -1
    'Valeur à tester
    v = r.Cells(i, 4).Value
    'tableau des références
    t = Split(v, "-")
    'nombre de lignes à ajouter
    n = UBound(t)
    'copier/insérer les lignes nécessaires
    Do While n > 0
      r.Rows(i).Copy
      r.Rows(i).Insert Shift:=xlDown
      n = n - 1
    Loop
    Application.CutCopyMode = False
    'Mettre en place les références
    If UBound(t) > 0 Then
      r.Cells(i, 4).Resize(UBound(t) + 1).Value = Application.Transpose(t)
    End If
  Next i
End Sub

Sub Macro4()
Dim txt As String
Dim b As Long
Dim var() As String
For i = 1 To 100
txt = Cells(i, 4).Value
If Len(txt) > 7 Then
var = Split(txt, "-", vbTextCompare)
End If
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next i
End Sub