Re
Bon ben j'ai rajouter ça dans le code du bouton OK (toujours sur le site de J. Boisgontier).
Cela n'évite pas l'écriture mais supprime le doublon Après l'écriture. Ce n'est pas optimum mais ça fonctionne.
With Sheets("Planning")
Sheets("Planning").Select
Set MonDico = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
i = 5
Do While Cells(i, "A") <> ""
If Not MonDico.Exists(Cells(i, "A") & Cells(i, "B") & Cells(i, "C") & Cells(i, "D")) Then
MonDico(Cells(i, "A") & Cells(i, "B") & Cells(i, "C") & Cells(i, "D")) = ""
i = i + 1
Else
Rows(i).EntireRow.Delete
End If
Loop
End With