MAJ faites au messages N°6

Bonjour,
j'aimerai de l'aide pour optimisé mon code afin qu'il soit le plus rapide pour traiter des milliers de lignes.
Je suis pas du genre à copier bêtement et préfère de partir de zéro.
j'en ai fait un qui marche mais surement avec des erreurs de débutant dans la façon de programmer ou de manière maladroite
le voici :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Supp_doublons()
Dim c As Range, MaDonnee As Range
Dim Der_ligne As Long
 
Application.ScreenUpdating = False
Der_ligne = Range("A" & Range("ZZ1").End(xlDown).Row).End(xlUp).Row
    For i = 1 To Der_ligne
        MaCellule = Range("A" & i).Row
        Set MaDonnee = Range("A" & MaCellule)
        Set c = Range("A" & MaCellule + 1 & ":" & "A" & Der_ligne + 1).Find(MaDonnee, , xlValues, xlWhole)
        If c Is Nothing Then
        ElseIf c = "" Then
        Else
            MaDonnee.EntireRow.Delete
            Der_ligne = Der_ligne - 1
            i = i - 1
        End If
Set c = Nothing
        If i = Der_ligne Then
            Exit For
        End If
    Next i
Application.ScreenUpdating = True
End Sub
Merci d'avance