Macro suppression depassement de capacite

[Bernard-Louis]

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

 

[MJ13]

Re : Macro suppression depassement de capacite

Bonjour

Dim i as double

 

[Bernard-Louis]

Re : Macro suppression depassement de capacite

Merci MJ13 et bonne journée.
Cordialement