Private Sub SupprimeDoublons(FeuilleATraiter As String, ColonneATraiter As Byte)
Dim i As Integer, j As Integer, DLV1 As Integer
DLV1 = Sheets(FeuilleATraiter).Columns(ColonneATraiter).Find("", , , , xlByRows, xlNext).Row - 1
For i = DLV1 To 2 Step -1
For j = i - 1 To 1 Step -1
If Sheets(FeuilleATraiter).Cells(i, ColonneATraiter).Value = Sheets(FeuilleATraiter).Cells(j, ColonneATraiter).Value Then _
Sheets(FeuilleATraiter).Cells(j, ColonneATraiter).Delete Shift:=xlUp
Next j
Next i
End Sub
Sub EXEMPLE_UTILISATION()
' SUPPRESSION des valeurs en doublon de la colonne A de la Feuille 1
Call SupprimeDoublons("Feuil1", 1)
End Sub