Sub Valeur_entre_crochets_lister()
Dim c As Range
Cells.Select
Selection.Replace What:="=", Replacement:="-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
Columns("a:a").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns(1).Clear
For Each c In ActiveSheet.UsedRange
If Left(c, 1) = "[" Then
c.Cut Destination:=Range("a" & Rows.Count).End(xlUp)(2)
Else
c.Clear
End If
Next
[a1] = "Marqueurs"
ActiveSheet.Range("a:a").Sort Range("a1"), xlAscending, Header:=xlYes
Columns(1).AutoFit
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
ActiveSheet.Range("$A$1:$A$1127").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub