Simplifier une boucle While Wend

Dim list()
ReDim list(0)
Dim coll As Collection
Set coll = New Collection
Application.ScreenUpdating = False
For n = 2 To Range("A2").End(xlDown).Row
  On Error Resume Next
    coll.Add Range("A" & n), CStr(Range("A" & n))
    If Err.Number <> 0 Then
      list(UBound(list)) = n
      ReDim Preserve list(UBound(list) + 1)
    End If
  On Error GoTo 0
Next n
For n = UBound(list) - 1 To 0 Step -1
 Rows(list(n)).Delete
Next n
Application.ScreenUpdating = True

Application.Calculation = xlCalculationManual
'
'
'
Application.Calculation = xlCalculationAutomatic

[FONT=Courier New][COLOR=darkblue]Sub[/COLOR] RemoveDuplicateEntries()
  [COLOR=Green]'auteur: [/COLOR][/FONT][COLOR=Green][I]Dave Brett[/I][/COLOR]
[FONT=Courier New]     [COLOR=darkblue]Dim[/COLOR] cel [COLOR=darkblue]As[/COLOR] Range, rng1 [COLOR=darkblue]As[/COLOR] Range, rng2 [COLOR=darkblue]As[/COLOR] Range
    [COLOR=darkblue]Dim[/COLOR] ckValue [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
 
    [COLOR=darkblue]Dim[/COLOR] MyDic [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Object[/COLOR]
    [COLOR=darkblue]Set[/COLOR] MyDic = CreateObject("Scripting.Dictionary")
    Application.ScreenUpdating = [COLOR=darkblue]False[/COLOR]
    [COLOR=darkblue]Set[/COLOR] rng1 = Intersect(Columns("A"), ActiveSheet.UsedRange)
 
    [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] cel [COLOR=darkblue]In[/COLOR] rng1
        [COLOR=darkblue]If[/COLOR] cel.Value <> vbNullString [COLOR=darkblue]Then[/COLOR]
            [COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] MyDic.exists(cel.Value) [COLOR=darkblue]Then[/COLOR]
                MyDic.Add cel.Value, cel.Row
            [COLOR=darkblue]Else[/COLOR]
                [COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] rng2 [COLOR=darkblue]Is[/COLOR] [COLOR=darkblue]Nothing[/COLOR] [COLOR=darkblue]Then[/COLOR]
                    [COLOR=darkblue]Set[/COLOR] rng2 = Union(rng2, cel)
                [COLOR=darkblue]Else[/COLOR]
                    [COLOR=darkblue]Set[/COLOR] rng2 = cel
                [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
            [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
    [COLOR=darkblue]Next[/COLOR] cel
    [COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] rng2 [COLOR=darkblue]Is[/COLOR] [COLOR=darkblue]Nothing[/COLOR] [COLOR=darkblue]Then[/COLOR] rng2.EntireRow.Delete
    Application.ScreenUpdating = [COLOR=darkblue]True[/COLOR]
    [COLOR=darkblue]Set[/COLOR] MyDic = [COLOR=darkblue]Nothing[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR][/FONT]