bonjour j'ai un petit soucis

je ne comprend pas pourquoi la procédure suivante me supprime la premiere ligne:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Formule()
 
Dim derlg  As Long
derlg = Range("AE" & Rows.Count).End(xlUp).Row
Range("AF1").FormulaR1C1 = "=IF(RC[-1]=R[1]C[-1],0,1)"
Range("AF1").AutoFill Destination:=Range("AF1:AF" & derlg), Type:=xlFillDefault
Range("AF1:AF" & derlg) = Range("AF1:AF" & derlg).Value
Range("AE1:AF1").AutoFilter
ActiveSheet.Range("$AE$1:$AF$" & derlg).AutoFilter Field:=2, Criteria1:="0"
ActiveSheet.Cells.SpecialCells(xlCellTypeVisible).Delete
 
End Sub
cette procédure affecte un 0 ou un 1 dans la colonne AF
le 0 correspond à un doublons
et en paralelle elle supprime toute les lignes contenant les 0


voila merci d'avance