Re,
Es tu sur de ne pas avoir modifié "Feuill" avecdeux "L" et "Feuil1" avec le chiffre UN
Sub test()
Dim Dl%, i%
Dl = Range("A" & Rows.Count).End(xlUp).Row
Columns("A:AD").Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add2 Key:=Range( _
"E2:E" & Dl), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add2 Key:=Range( _
"Z2:Z" & Dl), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:AD" & Dl)
.Header = xlYes
.Apply
End With
For i = Dl To 2 Step -1
If Cells(i + 1, 5).Value = Cells(i, 5).Value Then
Rows(i).Delete Shift:=xlUp
End If
Next i
Dl = Range("A" & Rows.Count).End(xlUp).Row
Columns("A:AD").Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add2 Key:=Range( _
"A2:A" & Dl), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:AD" & Dl)
.Header = xlYes
.Apply
End With
End Sub