Macro suppression depassement de capacite

Bonjour le forum,
Cette macro supprime bien les doublons sur 2000 lignes, mais la je dois trier 40 000 lignes et la macro m'indique "depassement de capacite"
Une petite solution si c'est possible .
Merci

Sub Bouton1_QuandClic()

Dim plage As Range
Dim i As Integer

Set plage = Range("a1:a" & Range("a65536").End(xlUp).Row)

For i = plage.Rows.Count To 1 Step -1
If Application.CountIf(plage, plage(i, 1)) > 1 Then
Rows(i).Delete
End If
Next i

End Sub