Bonjour newbies ,Michel et les amis du forum
Ci dessous un bout de code que j'utilise pour supprimer les doublons et qui fonctionne bien.
Sub supdoublon()
Dim Cell As range
range("A13:U7900").Select
Selection.Sort Key1:=range("F13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
range("F13").Select ----->colonne ou se trouvent les doublons
For Each Cell In range("F13:F7900")
If ActiveCell.Offset(1, 0).Value <> "" And ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then
ActiveCell.Offset(1, 0).Select
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(-1, 5).Select ---------->revient à la colonne contenant les doublons
Else
ActiveCell.Offset(1, 0).Select
End If
Next Cell
End Sub
A toi d'adapter selon tes critères!
Bien amicalement
Jacques de ryes