Sub DoublonsSelection() Dim myRange As Range Dim myCell As Range Set myRange = Sélection For Each myCell In myRange If WorksheetFunction.CountIf(myRange, myCell.Value) > 1 Then myCell.Interior.ColorIndex = 36 End If Next myCell End Sub
Cette macro vérifiera chaque cellule de votre sélection et mettra en évidence les valeurs en double. Vous pouvez également changer la couleur du code.