Salut,
Il te suffit de rajouter Target.Value = "" et le tour est joué.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 5 Then
If Application.WorksheetFunction. _
CountIf(Range("e4:e20"), Target.Value) > 1 Then
MsgBox "ce nom a déja été saisi il va être supprimé"
Target.Value = ""
End If
End If
End Sub
A+
LN