doublon

essaie ceci,
cette macro supprime toutes les lignes (sauf 1), qui ont une même valeur en
colonne 2 et une même valeur en colonne 3.

Sub deldoublonC2C3()
'supprime

With Sheets("xxxx"): 'xxxx à changer
nl = .Range("A:C").End(xlDown).Row
For i = nl To 2 Step -1
For j = 1 To i - 1
If .Cells(i, 2) = .Cells(j, 2) _
And .Cells(i, 3) = .Cells(j, 3) Then
.Rows(j).Delete Shift:=xlUp
Exit For
End If
Next j
Next i
End With
End Sub


"Yansec" <btrivero@orange.fr> wrote in message
news:ugAS$pONHHA.1248@TK2MSFTNGP03.phx.gbl...

Bonsoir

je recherche la formule à l'interieur d'une macro qui supprime les lignes
doublon quand la valeur dans la colonne B est identique et que la valeur
dans la colonne C est egalement identique.
merci