J'ai trouvé ici une piste en rapport avec la gestion des doublons mais je n'arrive pas à l'adapter à mon cas et surtout je ne vois pas comment ajouter les autre instructions donc j'ai besoin
Sub Doublons()
Dim Cel As Range
With Feuil1
For Each Cel In .Range("D2:D" & Rows.Count).SpecialCells(xlCellTypeConstants)
If WorksheetFunction.CountIf(.Range("A:A"), Cel.Value) > 1 Then
Cel.Interior.ColorIndex = 3
Else
Cel.Interior.Color = xlNone
End If
Next
End With
End Sub
En éspérant que cela puisse vous aider à me venir en aide
Cordialement