bonjour,
une proposition
Sub aargh()
col = "BU"
With Sheets("sheet1")
dl = .Cells(.Rows.Count, 1).End(xlUp).Row
dc = .Cells(1, .Columns.Count).End(xlToLeft).Row
Columns(dc + 1).Insert
For i = 1 To dl
.Cells(i, dc + 1) = i
Next i
.Range("A1").Resize(dl, dc + 1).Sort .Range(col & 1), xlAscending, Header:=xlNo
For i = dl To 2 Step -1
If .Cells(i, col) = .Cells(i - 1, col) Then .Rows(i).Delete shift:=xlUp
Next i
dl = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("A1").Resize(dl, dc + 1).Sort .Cells(1, dc + 1), xlAscending, Header:=xlNo
.Columns(dc + 1).Delete
End With
End Sub