Filtrage spécial de données

Sub macro1()
Dim lig As Long, c As Range
With Sheets("Feuil1")
    .Columns("E:E").ClearContents
    lig = .Cells(Rows.Count, 1).End(xlUp).Row
    For Each c In .Range("A2:A" & lig)
        On Error Resume Next
        c.Value = Left(c, WorksheetFunction.Search("-", c) - 1)
    Next c
    
    .Range("A1:A" & lig).Copy .Range("E1")
    .Range("E1:E" & lig).RemoveDuplicates Columns:=1, Header:=xlYes
    
End With
End Sub

Sub macro1()
Dim lig As Long, c As Range
With Sheets("Feuil1")
    .Columns("A:A").Copy .Range("E1")
    lig = .Cells(Rows.Count, 5).End(xlUp).Row
    For Each c In .Range("E2:E" & lig)
        On Error Resume Next
        c.Value = Left(c, WorksheetFunction.Search("-", c) - 1)
    Next c
    .Range("E1:E" & lig).RemoveDuplicates Columns:=1, Header:=xlYes
    
End With
End Sub