Sub Compte_Doublons()
Dim lig, i As Integer, reponse as Boolean
With Feuil1
lig = .Range("b65000").End(xlUp).Row
For i = 2 To lig
reponse = Application.CountIf(.Range("b2:b65536"), Cells(i, 2)) > 1 'VRAI OU FAUX
.Cells(i, 1) = IIf(reponse, "Doublon", "Unique")
If reponse Then .Cells(i, 1).Font.ColorIndex = 3: .Cells(i, 1).Font.Bold = True: _
.Cells(i, 2).Font.ColorIndex = 3: .Cells(i, 2).Font.Bold = True:
Next i
End With
End Sub
Sub App_Defaults()
With Feuil1
.Range("a2:a65536").ClearContents
.Range("a2:b65536").Font.Bold = False
.Range("a2:b65536").Font.ColorIndex = 0
End With
End Sub