Sub TRIEVM() Dim derli As Long, cas As Long, li As Long
Application.ScreenUpdating = False
' Dernière ligne du tableau
derli = Range("HA" & Rows.Count).End(xlUp).Row
' Trier le tableau
Range("HA3:HH" & derli).Sort Key1:=Range("HA1"), Order1:=xlAscending, Key2:=Range("HB1"), Order1:=xlAscending
' Vérifier les doublons et supprimer au cas ou
For cas = derli To 3 Step -1
If Range("HA" & cas) = Range("HA" & cas - 1) And Range("HB" & cas) = Range("HB" & cas - 1) Then
Rows(cas).Delete Shift:=xlShiftUp
End If
Next
Application.ScreenUpdating = True
End Sub