Option Explicit
Sub Doublons_Mac()
Dim a, b(), i As Long, e, n As Long, flag As Boolean
Application.ScreenUpdating = False
With Sheets(1)
a = .Range("a2", .Range("a" & Rows.Count).End(xlUp)).Value
ReDim b(1 To UBound(a, 1), 1 To 1)
For Each e In a
If n = 0 Then
n = n + 1
b(n, 1) = e
Else
For i = 1 To n
If e = b(i, 1) Then
flag = True
Exit For
End If
Next
If Not flag Then
n = n + 1
b(n, 1) = e
End If
flag = False
End If
Next
With .Range("d1")
.CurrentRegion.Clear
.Resize(n, 1).Value = b
With .CurrentRegion
.Font.Name = "calibri"
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.Borders(xlInsideVertical).Weight = xlThin
.BorderAround Weight:=xlThin
End With
End With
End With
Application.ScreenUpdating = True
End Sub